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FOREWORD 


This  document  Mas  prepared  by  The  BOM  Corporation.  1801  Randolph 
Road,  S.E.,  Albuquerque,  NM  87106,  for  Rome  Air  Development  Center/RBCT, 
Grlfflss  AFB,  NY  13441,  under  contract  number  F30602-81-C-0084.  This  Is 
the  Computer  Code  Documentation  Manual  for  version  3  of  the  GEMACS 
computer  code.  The  Engineering  Manual  and  User  Manual  are  submitted 
under  separate  covers.  These  reports  are  submitted  in  accordance  with 
Item  Number  A003  In  The  Contract  Oata  Requirements  List.  The  program 
manager  on  this  contract  was  Diana  L.  Kadlec.  The  principal  Investigator 
was  Dr.  Edgar  L.  Coffey.  The  GEMACS  documentation  editor  was  Marlellen 
Kuna. 

This  document  contains  a  description  of  the  GEMACS  computer  code. 
It  Is  meant  for  computer  programmers.  The  actual  user  of  the  code  Is 
referred  to  the  GEMACS  User  Manual  and  Engineering  Manual, 
RADC-TR-  -  ,  Volumes  I  and  II,  respectively. 

This  document  contains  an  overall  description  of  the  code  and  a 
detailed  description  of  the  code's  major  modules  and  each  subroutine 
within  the  various  modules.  It  also  contains  a  complete  alphabetical 
Index  of  each  variable  within  the  code  as  well  as  a  detailed  discussion 
of  each  of  the  named  common  blocks. 

The  basic  document  reflects  the  GEMACS  code  as  of  March  25,  1983. 
When  major  changes,  or  a  significant  number  of  minor  changes,  are  to  be 
Incorporated  Into  the  code,  change  pages  will  be  Issued  for  user  Incorpo¬ 
ration  Into  the  basic  document.  In  addition,  comment  cards  will  be 
Included  within  the  code  to  Indicate  the  basic  date  of  the  code  and  the 
date  of  the  latest  revised  statements  within  the  code. 
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CHAPTER  I 

PROGRAM  DESCRIPTION 
A.  OVERVIEW  OF  THE  GEMACS  CODE 

The  GEMACS  program  Is  a  modularized,  task-oriented  code.  Four 
modules  are  present  in  version  3  of  GEMACS: 

(a)  INPUT— performs  all  input  processing  of  commands  and  geometry. 

(b)  GTD— performs  all  calculations  required  for  geometrical  theory 
of  diffraction  (GTD)  modeling. 

(c)  MOM— performs  all  calculations  required  for  method  of  moments 
(MOM)  modeling  and  numerical  solutions  of  the  resulting  matrix 
problem. 

(d)  OUTPUT— prints  and  plots  electric  field  patterns  for  GTD,  MOM, 
or  MOM/GTO  hybrid  solutions. 

The  basic  structure  of  the  four  modules  is  similar  and  is  presented  in 
figures  1-1  through  1-4.  The  executive  routines  Initialize  the  proces¬ 
sing  and  Interface  with  the  host  system  to  obtain  various  information 
used  throughout  the  run.  As  a  minimum,  the  system  information  required 
is  the  time  of  day  or  elapsed  time  since  start  of  processing. 

The  four  modules  execute  sequentially,  as  shown  in  figure  1-5.  How¬ 
ever,  should  the  functions  of  a  module  not  be  required  in  problem  solu¬ 
tion,  that  module  may  be  bypassed.  For  instance,  a  MOM-only  problem 
would  not  require  the  GTO  module,  so  only  the  INPUT,  MOM,  and  possibly 
OUTPUT  modules  would  be  needed. 

The  only  communications  medium  among  the  modules  is  the  checkpoint 
file.  This  file  contains  the  contents  of  important  commons  and  the  con¬ 
tents  of  all  data  files  present  at  the  end  of  a  module's  execution.  This 
allows  two  types  of  runs  to  be  made.  One  may  either  execute  all  four 
modules  In  one  batch  job,  or  one  may  execute  the  modules  In  successive 
jobs,  examining  all  Intermediate  results  before  proceeding  to  the  next 
module.  If  the  latter  Is  the  case,  the  checkpoint  file  should  be  a  per¬ 
manent  file  so  that  the  checkpoint  will  be  available  for  the  next  batch 
run. 
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Figure  l-l .  Computer  Code  Structure  for  the 
GEMACS  INPUT  Module 
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Figure  1-3.  Computer  Code  Structure  for  the 
GEMACS  MOM  Module 


4 


5 


Figure  1-5.  Communications  Among  the  Four  GEMACS  Modules 


Processing  always  begins  with  the  INPUT  module  (figure  1-1).  In  the 
INPUT  module,  the  Input  Language  Processor  is  called  to  read  the  user 
command  language  Input  until  an  END  ■/»)  is  encountered.  Control  Is  then 
returned  to  the  executive  routines,  and  transfer  Is  made  to  the  Task 
Execution  Processor  which  Interprets  the  task  list  generated  by  the  Input 
Language  Processor  and  calls  the  appropriate  subroutines  to  perform  the 
tasks  specified.  There  are  two  passes  through  the  task  list.  During 
pass  one,  checks  are  made  to  ensure  correctness  of  the  user's  Input, 
establish  symbol  attributes,  and  establish  those  peripheral  files  needed 
for  execution.  After  pass  one,  tne  symbols  generated  by  the  Input 
Language  Processor  are  assigned  storage.  Single  variables  are  stored  In 
core  on  a  f irst-encountered-f irst-stored-as-available  basis.  When 
Internal  core  is  exhausted,  the  symbols  are  assigned  storage  on  the  next 
logical  unit  available.  These  are  sequentially  accessed  files.  Since 
this  is  a  very  severe  restriction,  storage  is  often  reassigned  during 
execution.  When  this  occurs,  logical  unit  assignment  starts  with  file  8 
and  proceeds  sequentially  until  the  available  units  are  exhausted.  When 
a  symbol  Is  purged.  Its  logical  unit  becomes  available  for  other  symbols. 
The  purged  symbol's  unit  is  closed  by  writing  an  end-of-file  and 
rewinding  back  over  the  end-of-file. 

During  pass  two,  the  user's  commands  are  executed.  Each  command  Is 
executed  sequentially  by  a  subroutine  designed  to  Interpret  the  argument 
list  specified  for  the  command. 

The  INPUT  module  Itself  executes  only  geometry  and  direct  manipula¬ 
tion  commands.  However,  since  the  symbol  attributes  and  task  tables  are 
stored  In  named  common  blocks,  they  are  available  to  all  subsequent 
modules,  and  no  Input  processing  Is  required  by  other  modules. 

The  data  Interfaces  In  all  GEMACS  modules  are  primarily  through  the 
various  data  arrays  located  In  named  common  blocks.  Figure  1-6  Illus¬ 
trates  the  use  of  the  various  arrays  by  function.  The  arrays  used  as 
Input  for  the  SCAN  function  are  preloaded  In  the  block  data  subroutine, 
BLKDAT.  The  SCAN  function  generates  arrays  used  as  Input  for  the  PARSE 
function.  Additional  PARSE  function  Input  is  preloaded  In  BLKDAT.  The 
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Figure  1-6.  Array  Interface  During  Program  Execution 


parsing  function  .  T-eral  vA  symbol !r  data  In  addition  to  providing 

the  data  needei  >■  •••>■■■  v:*urr 

The  tas*  .  v  data  from  the  NARGTB  array  and 

transfers  It  to  the  INTARf.  array  for  use  by  the  task  processor  Interface 
routines.  ThU  tra««fpr  o*  d*.ta  ;*  done  to  preserve  the  Integrity  of  the 
argument  lilt  tj'y  -MB  ror  subsequent  modules,  since  the  task 
interface  pf  ?•••«."■*•«.  often  -ro*Mfy  the  argument  list  data. 

The  prima-v  function  of  the  processor  interface  Is  to  Initialize  the 
argument  < i :  1  ■'<*♦*  (a^-ray  rNTAPG),  set  up  the  data  retrieval  (before  task 
execution;,  ~ni  tort  tne  data  *  he  tas*  is  complete).  In  doing 

eh  is,  tin  ur,A‘  *!  »•"*!'  wfl!  he  modified. 

The  .•*■?  relri.’val  wi ■  utilize  the  contents  of  the  IOFILE  and 
NDATBL  ar (ttys  *-<h  \  .0.. ts  of  the  date  sets  from  the  periph¬ 

eral  files.  The  TFM:  an  ay  ,s  used  primarily  fo^  the  Internal  storage  of 
these  data.  Th»ro  „**p  exceptions  to  this,  and  they  are  pointed  out  In 
the  description  of  the  interface  processors  where  they  occur. 

After  tne  data  are  in  core,  the  mathematlca1  and  other  operations 
constituting  the  functions  are  performed.  The  data  are  typically  over¬ 
written  in  the  TFMP  array. 

Upon  completion  of  the  operations,  the  modified  data  are  returned  to 

peripheral  file  by  the  store  data  function.  Again,  the  NDATBL  and 
!V:ILE  arrays  are  used  to  control  this  process.  After  the  data  are 
tored,  the  TEMP  array  is  available  for  use  by  the  next  processor.  This 
'ogle  and  data  flow  continue  until  the  module  execution  Is  complete. 

At  its  termination  each  module  stores  all  important  named  common 
blocks  and  all  data  files  in  a  single  checkpoint  file.  This  file  Is  used 
rrj  tne  nev:  module  in  sequence  to  Initialize  its  named  common  blocks  and 
data  sets.  In  the  GTD,  MOM,  and  OUTPUT  modules,  scan  and  parse  proces¬ 
sing  are  not  required.  Instead,  a  processor  Is  called  to  Initialize  the 
module  with  checkpoint  file  data.  Then  task  execution  begins  with  Its 
Mrst  task  in  the  task  table  and  proceeds  as  discussed  above.  However, 
since  different  tasks  are  active  in  different  modules,  different  results 
i»e  obts'ried.  The  log*:,  and  data  f’cw  of  f^-ure  '-6  continue  until 
mod'- it  exaction  is  complete. 
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Upon  execution  of  ail  modules,  the  desired  results  are  available  In 
the  data  files.  Some  results  are  available  prior  to  completion  of  all 
modules,  as  shown  in  figure  1-5. 

8.  EXECUTIVE  ROUTINES 

The  GEMACS  executive  routines  control  the  Interface  of  the  computer 
code  with  the  host  computer.  These  routines  also  call  the  processors 
shown  in  table  1-1.  Those  subroutines  that  are  required  by  all  top-level 
processors  are  in  the  executive  processor.  There  are  four  primary  func¬ 
tions  performed  oy  tne  executive  routines.  These  are: 

(a)  Initializing  or  restarting  a  module 

(b)  Communicating  with  peripheral  files 

(c)  Checkpointing 

(d)  Accumulating  statistical  information. 

TABLE  1-1.  TOP  LEVEL  GEMACS  PROCESSORS  FOR  EACH  MODULE 

TOP-LEVEL  PROCESSOR 


MOOULE 

INPUT 

MOOULE 

TASK 

MOOULE 

NAME 

LANGUAGE 

INITIALIZATION 

EXECUTION 

TERMINATION 

INPUT 

X 

X 

X 

GTO 

X 

X 

X 

MOM 

X 

X 

X 

OUTPUT 

X 

X 

X 

1 .  Module  Resic.r  or  Initialization 

The  checkpoint  file  contains  a  snapshot  of  the  code  status  at 
the  time  the  checkpoint  was  written.  This  information  is  required  to 
initialize  a  GTO,  *CM,  Cr  OUTPUT  module  with  the  status  and  data  of  the 
previous  module  at  its  termination.  Or,  the  data  contained  In  an  Inter¬ 
mediate  checkpoint  can  be  used  to  restart  a  module  at  the  point  where  the 
checkpoint  was  taken.  The  first  case  occurs  in  normal  module  flow.  The 
latter  option  is  used  when  an  error  occurred,  when  time  ran  out  prior  to 


finishing  execution,  or  when  the  user  wishes  to  restart  with  a  modifier 
command  stream. 

Module  Initialization  is  accomplished  by  subroutine  STRTUP  1r. 
conjunction  with  subroutines  RWCOMS,  RWFILS,  PUTSYM,  and  GETSYM.  The 
MOOCHK  file  Is  searched  for  the  last  checkpoint  written.  Named  common 
blocks  are  restored  with  data  from  this  checkpoint  by  RWCOMS  after  which 
all  peripheral  files  are  reinitialized  with  data  by  RWFILS.  The  files 
are  rewound.  Interfaces  cleared,  and  control  variables  Initialized.  Then 
control  is  turned  over  to  the  task  executior  processor.  If  an  erroi 
occurred  In  a  previous  module,  execution  Is  terminated  at  this  point. 
Otherwise,  normal  task  execution  begins  again  at  task  1  and  p» Ocoee's 
until  an  END  command  Is  encountered. 

A  restart  Is  the  result  of  the  oput  processor  interpreting  a 
RSTART  command.  Restart  occurs  in  two  steps.  First,  the  input  processor 
calls  RESTRT  (INPUT  module)  to  initialize  the  INPUT  module  named  common 
blocks  and  data  files  with  data  from  the  checkpoint  file  IOCKPT.  This 
step  destroys  any  Input  already  processed  by  t.he  input  processor.  How¬ 
ever,  upon  completion  of  the  restart  initialization,  additional  commands 
may  be  added  or  original  commands  deleted  with  normal  input  processing 
functions. 

The  second  step  in  restarting  requires  selecting  the  module  in 
which  to  restart.  (The  module  name  is  specified  on  the  RSTART  card.)  The 
INPUT  module  is  the  first  to  check  for  a  match.  If  a  match  is  found, 
execution  is  turned  over  to  the  task  execution  processor.  Execution  in 
this  case  does  not  begin  with  the  first  task.  Instead,  execution  is 
started  with  the  task  which  wrote  the  checkpoint  from  which  the  restart 
was  taken.  An  Important  exception  to  this  rule  occurs  if  the  checxpoint 
was  written  at  the  termination  of  the  OUTPUT  module.  Then,  task  execu¬ 
tion  begins  with  the  first  new  task  input  after  the  restart. 

If  the  INPUT  module  was  not  the  module  specified  on  the  RSTART 
card,  an  end-of-module  checkpoint  is  written,  and  the  next  module  begins 
with  subroutine  STRTUP  Initializing  the  module  as  discussed  above.  If 
STRTUP  detects  that  this  initialization  is  a  part  of  a  restart,  module 
names  are  compared.  If  a  match  is  fourd,  exeiut-en  is  turned  ever  to  the 


task  execution  processor  of  this  module.  Otherwise,  this  module  stops 
executing  so  that  the  next  module  (In  sequence)  may  compare  module  names. 
This  continues  until  a  match  Is  found  or  all  modules  are  exhausted. 

2.  Peripheral  File  1/0 

The  I/O  is  accomplished  through  four  subroutines.  Subroutines 
GETSYM  and  PUTSYM  are  called  to  fetch  and  store  the  data  associated  with 
the  symbols  defined  by  the  user  and  Internally  defined  symbols.  These 
subroutines.  In  turn,  call  subroutines  ROEFIL  and  WRTFIL  for  all  actual 
I/O  to  the  peripheral  devices.  There  are  two  exceptions  to  this  rule  In 
the  GEMACS  code.  These  occur  in  MOM  subroutines  DECOMP  and  SOLDRV. 
These  subroutines  Interface  directly  with  the  subroutines  ROEFIL  and 
WRTFIL  without  going  through  subroutines  GETSYM  and  PUTSYM.  The  motiva¬ 
tion  for  this  direct  Interface  Is  the  savings  in  time  realized  by  not 
calling  subroutines  GETSYM  and  PUTSYM  with  alternating  symbol  names. 

Subroutines  GETSYM  and  PUTSYM  determine  the  record  length  for 
each  data  set  from  the  attributes  associated  with  the  data  set.  They 
then  determine  the  correct  file  and  the  starting  position  of  the 
requested  record  on  that  file.  The  file  Is  then  positioned  at  the 
starting  location  of  the  correct  record  by  subroutine  MOVFIL.  The  data 
are  retrieved  or  stored  using  subroutines  RDEFIL  or  WRTFIL  as  required. 
Due  to  the  ANSI  FORTRAN  restriction  on  the  GEMACS  code,  all  files  are 
sequential. 

In  order  to  minimize  the  processing  time  associated  wHh  file 
manipulation,  there  Is  an  external  file  required  for  each  data  set  which 
will  have  a  dimension  greater  than  1.  The  user  must  make  the  logical 
units  available  to  the  GEMACS  code  to  store  all  the  symbols  requiring 
peripheral  file  storage.  These  units  start  at  logical  unit  number  8  and 
go  as  high  as  the  user  desires.  The  highest  numbered  logical  unit  should 
be  Input  to  GEMACS  using  the  NUMFIL  keyword  entry  in  the  command 
language.  It  Is  explicitly  assumed  that  all  logical  units  between  8  and 
that  specified  on  the  NUMFIL  entry  are  available  for  use  by  GEMACS. 

The  total  number  of  logical  units  required  may  be  reduced  by 
the  use  of  the  PURGE  command  when  the  actual  data  associated  with  a 
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symbolic  name  are  no  longer  required.  The  symbol  name  may  still  be 
referenced  In  a  subsequent  command.  A  typical  example  of  this  occurs 
when  a  matrix  has  been  decomposed  Into  Its  lower  and  upper  triangular 
components;  the  Interaction  matrix  may  be  purged  If  It  Is  not  going  to  be 
used  later.  Reference  to  the  Interaction  matrix  In  the  BACSUB  command 
may  still  be  made;  the  lower  and  upper  triangular  matrices  associated 
with  the  purged  matrix  will  be  retrieved.  In  a  similar  manner,  the  lower 
and  upper  triangular  matrices  resulting  from  a  decomposition  may  be 
purged  after  the  solution  vector  has  been  found.  This  will  make  more 
storage  available  for  computation  of  such  quantities  as  the  near  and  far 
electric  fields  if  the  user  desires  to  save  the  data  associated  with 
these  quantities. 

A  pseudorandom  access  capability  Is  contained  In  the  GEMACS 
code.  This  means  that  records  contained  within  a  data  set  and  elements 
of  these  records  may  be  replaced.  This  Is  accomplished  by  using  two 
files:  a  scratch  file  to  store  the  original  data  up  to  the  record  being 
modified,  the  record  being  modified  Is  then  written  out  onto  the  scratch 
file  being  used,  then  the  remainder  of  the  data  associated  with  the 
symbol  is  transferred  to  the  scratch  file.  Once  all  data  are  on  the 
scratch  file,  it  is  rewound  and  transferred  back  to  the  original  file. 
For  large  data  sets,  this  is  a  very  expensive  and  time  consuming  opera¬ 
tion  and  should,  in  general,  be  avoided  unless  true  random  access 
capability  has  been  Implemented  In  the  GEMACS  code. 

The  looping  capability  and  multimodule  organization  of  GEMACS 
make  it  necessary  to  store  intermediate  results  for  all  data  sets.  For 
instance,  the  generation  of  a  MOM/GTD  hybrid  Interaction  matrix  at  six 
frequencies  requires  that  the  matrix  for  each  frequency  be  retained 
throughout  program  execution,  because  the  data  at  all  six  frequencies 
must  be  available  to  the  MOM  module  as  well  as  the  GTD  module.  Here 
GEMACS  to  write  over  Intermediate  data  in  the  GTD  module  as  the  frequency 
was  incremented,  these  data  would  be  lost  to  the  MOM  module.  Therefore, 
unlike  the  standard  FORTRAN  convention  of  data  replacement.  GEMACS  uses 
the  concept  of  data  concatenation  for  peripheral  files.  Data  for  scalar 


variables  are  still  replaced,  since  these  data  are  generated  anew  In  each 
module  by  the  direct  manipulation  processor. 

3.  Checkpointing 

Checkpointing  is  accomplished  by  subroutine  WRTCHK  In  conjunc¬ 
tion  with  subroutines  RWCOMS,  RWFILS,  PUTSYM,  and  GETSYM.  The  check¬ 
pointing  feature  of  GEMACS  Is  implemented  by  writing  all  of  the  data 
stored  In  named  common  blocks  to  a  peripheral  file.  After  the  named 
common  blocks  have  been  written  to  the  checkpoint  file,  the  symbol  table 
is  scanned,  and  all  symbols  having  data  stored  on  a  peripheral  file  will 
have  those  data  retrieved  and  rewritten  onto  the  checkpoint  file. 

Two  checkpoint  files  are  available:  MODCHK  (for  end-of -module 
checkpoints),  and  IOCKPT  (for  timed  and  command  checkpoints).  MODCHK  and 
IOCKPT  are  both  initialized  to  FORTRAN  logical  unit  7.  This  causes  all 
checkpoints  to  be  written  to  the  same  file.  However,  upon  successful 
execution  of  a  module,  MOOCHK  is  rewound  prior  to  writing  the  end-of- 
module  checkpoint.  To  save  the  timed  and  command  checkpoints.  It  Is 
necessary  to  specify  a  different  logical  unit  number  for  IOCKPT  In  the 
FILE 10  Item  of  the  CHKPNT  command. 

An  optional  item,  NR,  on  the  checkpoint  command  has  been 
provided  to  Inhibit  rewinding  of  the  IOCKPT  checkpoint  file  after  each 
checkpoint.  If  this  parameter  is  not  specified,  the  checkpoint  file  will 
have  a  FORTRAN  END  OF  FILE  written,  and  a  rewind  command  will  be  Issued 
to  the  file.  The  next  checkpoint  taken  will  then  overwrite  the  previous 
checkpoint.  If  the  NR  item  is  specified,  the  checkpoint  file  will  not  be 
rewound  nor  will  there  be  an  end-of-file  mark  written  on  the  checkpoint 
file.  Subsequent  checkpoints  will  be  written  In  a  contiguous  fashion  on 
the  checkpoint  file.  The  user  may  then  recover  at  any  checkpoint  that  Is 
present  on  the  IOCKPT  file  by  specifying  the  checkpoint  number  In  the 
CPNUM  Item  of  the  RSTART  command. 

A  checkpoint  file  may  become  quite  large  during  the  solution  of 
a  large  problem.  For  this  reason,  care  should  be  taken  when  the  NR 
parameter  Is  specified. 
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4.  Accumulating  Statistical  Information 

During  the  execution  of  each  module  of  the  GEMACS  code,  statis¬ 
tical  Information  relating  to  the  number  of  times  each  subroutine  Is 
entered  and  the  total  time  In  CP  seconds  spent  In  each  subroutine  may  be 
accumulated.  This  option  is  selected  by  the  DEBUG  STATS  command.  This 
Information  provides  the  user  with  some  Insight  into  the  source  of  the 
expenses  Incurred  during  program  execution.  This  Information  Is  printed 
at  the  conclusion  of  the  execution.  Using  this  Information,  the  user  may 
determine  those  portions  of  the  code  which  may  require  optimization  for  a 
particular  use. 

C.  GEMACS  INPUT  PROCESSOR 

1.  Input  Language  Processor 

The  basic  function  of  the  Input  Language  Processor  is  to  trans¬ 
late  the  user's  free-fleld  Input  into  a  task  list  table  In  order  that  the 
execution  processor  may  complete  the  user's  commands.  All  Input  proces¬ 
sing  is  performed  by  the  INPUT  module. 

Figure  1-7  illustrates  the  logical  and  functional  subroutine 
interfaces  In  the  Input  Language  Processor.  Identified  In  the  figure  are 
the  major  functions  and  the  subroutines  that  perform  these  functions. 
Detailed  subroutine  flowcharts  are  presented  In  chapter  II. 

The  basic  array  used  Lv  the  Input  Language  Processor  Is  the 
NCODES  array.  This  array,  loaded  in  the  BLKDAT  subroutine,  contains  all 
of  the  Internal  code  representation  for  the  keywords  and  other  text  used 
by  the  GEMACS  code. 

The  user's  Input  strings  are  scanned  by  the  subroutine  SCAN  and 
the  Individual  fields  which  are  delimited  by  blanks,  commas,  parentheses, 
or  arithmetic  operators  are  extracted  from  the  input  command.  Scanning 
will  continue  for  all  fields  related  to  the  same  command  before  returning 
to  the  calling  subroutine.  Continuation  on  an  Input  command  Is  Indicated 
by  the  presence  of  a  continuation  character  (set  In  variable  NCONCH  in 
common  SCNPAR  In  subroutine  BLKDAT)  in  column  1  of  each  succeeding  record 
of  the  command. 
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.  Input  Language  Processor  Function/ 
Subroutine  Interface 

The  rules  for  field  construction  are  as  follow: 

(a)  All  alphanumeric  input  must  begin  with  an  alpha  character. 

(b)  All  numeric  input  begins  with  a  numeric  character  or  decimal 
point. 

An  error  will  occur  if  a  field  beginning  with  a  numeric  character  sub¬ 
sequently  Is  found  to  contain  alpha  characters  with  the  exception  of  a 
floating  point  field  which  may  contain  the  alpha  character  ‘ E ’  to 
indicate  the  exponent  input  mode  for  numeric  fields.  Special  characters 
such  as  the  characters  associated  with  arithmetic  operations  and  paren¬ 
theses  constitute  a  field  by  themselves. 

The  output  of  the  SCAN  subroutine  is  contained  in  two  arrays, 
the  NVAL  and  NCODE  arrays.  The  NVAL  array  contains  the  values  of  the 
fields  while  the  NCODE  array  contains  a  code  indicating  what  type  of 
field  is  present.  The  types  of  fields  recognized  are: 

(a)  A  symbol  or  special  character  field  indicated  by  the  value  of 
NTSYMB 

(b)  A  keyword  field  indicated  by  the  value  of  NTKEYW 

(c)  An  alphanumeric  field  indicated  by  the  value  NTALPH 

(d)  An  integer  field  indicated  by  the  value  NTINT 

(e)  A  floating  point  field  indicated  by  the  value  NTFLPT 

(f)  The  END  card  indicated  by  the  value  NTEND. 

The  values  associated  with  these  symbols  are  loaded  in  subroutine  BLKDAT 
initially;  and  when  a  field  corresponding  to  one  of  these  types  Is 
detected  by  the  SCAN  routine,  this  corresponding  value  is  loaded  into  the 

NCODE  array  at  the  proper  location  for  the  field  being  scanned.  The  NVAL 

array  and  its  equivalenced  VAL  array  contain  the  actual  value  from  the 
user's  input  for  each  field  encountered.  If  a  keyword  is  encountered  In 
the  input  stream,  the  user's  input  is  replaced  by  the  index  of  the  key¬ 
word  in  the  array  KWNAME .  If  a  symbol  such  as  an  asterisk  or  slash  Is 
found,  the  symbol  is  replaced  by  an  integer  value  corresponding  to  the 
location  of  the  symbol  in  the  ISYMBL  array. 

Once  the  scanning  is  complete,  control  is  returned  to  the 
INPDRV  subroutine  for  a  subsequent  call  to  the  PARSE  subroutine.  When 
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control  Is  transferred  to  the  PARSE  subroutine,  the  NVAL  and  NCODE  arrays 
are  searched  for  keywords.  If  no  keywords  are  found.  It  Is  assumed  that 
the  command  Is  a  direct  manipulation  command  such  as  those  represented  by 
arithmetic  operations  on  symbols,  and  the  entire  contents  of  the  NVAL 
array  for  the  previous  command  entry  are  loaded  directly  Into  the  task 
table  to  be  processed  by  subroutine  DMPDRV.  If  a  keyword  Is  found,  the 
array  KWFMTP  Is  searched  for  a  nonzero  entry  corresponding  to  the  keyword 
found.  A  nonzero  entry  In  this  array  points  to  the  location  In  the 
NTSFMT  array  which  contains  the  format  for  the  task  associated  with  this 
keyword.  If  a  zero  entry  Is  found  In  the  KWFMTP  array,  then  there  Is  no 
task  associated  with  the  current  keyword,  and  the  search  Is  continued 
through  the  NCOOE  array  until  a  keyword  with  a  nonzero  entry  In  the 
KWFMTP  array  Is  found  in  order  to  determine  the  task  being  processed.  As 
stated  previously,  if  no  nonzero  entry  is  found  for  the  keyword  In  the 
present  Input  command.  It  Is  assumed  to  be  a  direct  manipulation  command 
and  will  be  processed  by  the  direct  manipulation  processor  DMPDRV. 

The  first  keyword  found  which  has  a  task  associated  with  It 
will  determine  how  the  task  Is  Interpreted  and  processed.  Once  a  nonzero 
entry  is  found  for  KWFMTP,  the  data  starting  at  that  position  of  the 
NTSFMT  array  are  retrieved.  The  first  entry  at  that  position  is  the 
number  of  entries  which  follow  pertaining  to  the  task  associated  with  the 
keyword  found.  The  remaining  entries  in  the  NTSFMT  array  determine  the 
format  of  the  command.  The  first  entry  after  the  number  of  entries 
Indicator  contains  the  task  number  associated  with  tne  keyword.  This 
task  number  Is  loaded  Into  the  next  available  position  of  the  task  execu¬ 
tion  list  which  Is  stored  In  the  array  NARGTB.  The  location  In  this 
array  of  the  task  number  Is  stored  In  the  array  NTSKTB.  The  subsequent 
entries  In  the  NTSFMT  table  for  a  given  command  are  coded  to  Indicate 
either  keywords,  alphanumerlcs,  literals,  or  a  list  of  these  types  of 
arguments  to  be  searched  for  In  the  Input  stream.  If  any  entry  required 
by  the  NTSFMT  array  is  not  present,  a  NOPCOD  value  is  loaded  into  the 
corresponding  position  of  the  NARGTB  array.  During  pass  1  of  execution, 
the  subroutines  required  to  execute  the  command  will  determine  If  there 
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Is  adequate  Information.  In  this  way,  the  first  pass  of  execution  acts 
as  a  second  pass  of  the  parser.  If  Information  Is  not  provided  by  the 
user,  the  default  value  will  be  used  If  It  Is  available;  If  there  Is  no 
default  parameter,  or  no  default  value  provided  for  a  given  parameter,  an 
error  will  occur  during  pass  1.  All  remaining  commands  will  be  scanned 
during  pass  1;  however,  actual  execution  which  takes  place  during  pass  2 
will  be  Inhibited. 

For  a  given  argument  type  found  In  the  NTSFMT  array  for  the 
command  being  parsed,  subroutine  FNDARG  Is  called  to  locate  either  the 
argument  or  the  value  associated  with  a  keyword  argument.  Subroutine 
FNDARG  will  call  the  subroutines  SYMLIT,  LITSCH,  or  SYMSCH  In  order  to 
determine  the  location  of  symbols  or  literals  previously  entered  via 
preceding  commands.  Symbolic  names  defined  by  the  user  are  stored  In  the 
data  table  NDATBL.  Associated  with  each  NDATBL  entry  Is  a  list  of 
attributes  associated  with  the  symbols.  These  attributes  are  determined 
during  pass  1  and  pass  2  of  execution,  not  during  input  language  proces¬ 
sing.  Numeric  fields  encountered,  and  also  alpha  fields  encountered  on 
the  right-hand  side  of  an  equal  sign,  are  stored  in  the  literal  table 
LITNUM.  In  order  to  store  floating  point  numbers,  the  array  FLTLIT  Is 
equlvalenced  to  the  literal  table  array  LITNUM.  There  are  two  entries 
for  each  value  stored  in  the  literal  table.  These  are: 

(a)  The  literal  code  (KOLCOD) 

(b)  The  literal  value  (KOLVAL). 

The  literal  codes  are  the  values  associated  with  the  parameters  NTKEYW, 
NTALPH,  NTINT,  and  NTFLPT.  In  this  way,  subsequent  use  of  a  particular 
entry  In  the  literal  table  may  determine  the  nature  or  the  type  of  entry 
present. 

When  FNDARG  creates  an  entry  In  the  NDATBL  array,  a  positive 
Integer  pointing  to  that  location  is  loaded  Into  the  NARGTB  array  for 
task  execution.  When  an  entry  Is  made  Into  the  LITNUM  array,  a  negative 
Integer,  whose  absolute  value  Is  the  position  In  the  LITNUM  array  of  the 
entry.  Is  loaded  into  the  NARGTB  array.  The  NARGTB  array,  which  Is  used 
as  the  task  execution  array,  contains  positive  integers  pointing  to  the 
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NDAT8L  array  and  negative  Integers  pointing  to  the  LITNUM  array.  The 
order  of  the  Integers  Is  determined  by  the  NTSFMT  entries.  In  this  way. 
the  free-fleld,  unordered  Input  of  the  user  Is  Interpreted  and  ordered 
before  It  Is  stored  In  the  NARGT8  array  for  subsequent  execution. 

The  Input  Language  Processor  continues  in  this  manner  for  each 
command  Input  by  the  user  until  a  command  Is  encountered  which  contains 
an  END  starting  In  column  1.  The  END  card  may  contain  subsequent  Items 
to  Indicate  to  the  user,  for  his  convenience,  the  end  of  the  Input  for  a 
particular  group  of  commands. 

In  the  event  that  a  restart  from  checkpoint  command  has  been 
encountered,  control  will  be  transferred  to  the  RESTRT  subroutine  to 
restart  from  checkpoint.  If  this  occurs,  subsequent  commands  are  added 
on  to  the  end  of  the  command  stream  present  for  the  run  which  generated 
the  checkpoint.  After  the  checkpoint  restart  has  been  accomplished, 
control  is  returned  to  the  INPDRV  subroutine  and  subroutine  SCAN  Is 
reentered  to  continued  processing  the  user's  current  Input  stream. 

Upon  encountering  an  END  card,  subroutine  PRESCN  Is  called  to 
eliminate  those  NTSKTB  and  NARGTB  entries  removed  by  the  WIPOUT  command. 

Subroutine  POSTIP  will  be  called  to  verify  that  the  loop  table 
NLOOPS  Is  correctly  loaded  (l.e.,  no  open  loops).  Additionally,  If  the 
debug  mode  for  the  ILP  was  requested,  subroutine  POSTIP  will  list  the 
contents  of  the  NTSKTB,  NARGTB,  NDATBL,  LITNUM,  and  NLOOPS  arrays. 

2.  Addition  and  Modifications  of  GEMACS  Commands 

The  process  of  adding  commands  to  GEMACS  Involves  making 
entries  Into  the  NCODES  array,  the  KHNAME  array,  the  KWARG  array,  the 
NAMTSK  array,  the  KWFMTP  array,  and  the  NTSFMT  array.  In  addition,  an 
entry  starting  with  the  letters  KW  with  up  to  four  subsequent  characters 
Indicating  the  keyword  mnemonic  must  be  made  In  the  section  In  subroutine 
BLKOAT  labeled  KEYWORD  INDICES.  All  entries  must  be  composed  of  the 
characters  contained  In  the  ANSI  FORTRAN  character  set  and  no  others  are 
allowed.  This  Is  In  order  to  preserve  the  basic  BCO  nature  of  the  GEMACS 
code  for  Internal  representation  of  BCD  strings. 
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The  addition  process.  Illustrated  In  figure  1-8,  Is  dlscuscad 
In  detail  below.  The  entries  In  the  NCODES  array  are  constructed  In  the 
following  manner:  the  first  character  of  the  BCD  string  Is  located  as  an 
entry  In  the  first  45  positions  of  the  NCODES  array.  The  entry  In  this 
array  represents  the  Internally  coded  value  for  the  8CD  character,  for 
Instance,  A  Is  represented  as  a  1,  B  as  a  2,  and  so  forth.  The  second 
character  of  the  BCO  string  Is  also  located  In  the  first  45  positions  of 
the  NCOOES  array.  The  internal  representation  of  the  BCD  string  Is  then 
built  by  multiplying  the  Internal  representation  of  the  first  character 
by  26  and  adding  the  representation  of  the  second  character.  The 
Internal  representation  of  the  third  character  Is  then  found  in  the 
NCODES  array  and  the  subsequent  representation  of  the  first  three  char¬ 
acters  of  the  string  Is  determined  by  multiplying  the  representation  of 
the  first  two  characters  by  2®  and  adding  the  Internal  representation  of 
the  third  character.  This  process  continues  until  all  characters  of  the 
string,  maximum  of  six,  have  been  represented  by  their  Internal  represen¬ 
tation.  The  Integer  resulting  from  this  operation  Is  then  loaded  Into 
the  next  available,  or  any  available,  location  of  the  NCODES  array. 

The  next  task  Is  to  make  an  entry  In  the  KWNAME  array.  This 
entry  Is  a  pointer  to  the  location  of  the  Internal  representation  of  the 
BCD  string  In  the  NCODES  array.  When  this  string  Is  encountered  In  the 
user's  Input  stream,  the  string  will  be  replaced  by  the  number  of  the 
location  In  the  KWNAME  array  pointing  to  the  location  In  the  NCODES  array 
which  matches  the  string  encountered. 

The  next  task  Is  to  make  a  corresponding  entry  In  the  KWFMTP 
array.  "Corresponding"  means  that  the  KWNAME  array  and  the  KWFMTP  array 
have  the  same  number  of  entries,  and  the  same  positions  of  each  array 
refer  to  the  same  keyword.  If  there  Is  to  be  a  task  associated  with  this 
keyword,  or  If  this  keyword  Is  to  be  used  to  Identify  a  particular 
command,  the  entry  In  the  KWFMTP  array  must  point  to  the  start  location 
In  the  NTSFMT  array  which  contains  the  coded  format  to  be  used  to  decode 
this  command  during  parsing.  In  addition,  an  entry  must  be  made  In  the 
NTSFMT  array  starting  at  the  location  specified  In  the  KWFMTP  array. 
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Figure  1-8.  Command  Addition  Flowchart 
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This  entry  Is  the  coded  representation  of  the  command  using  the  codes 
documented  In  the  BLKDAT  subroutine.  Entries  may  be  made  at  any  avail¬ 
able  location  which  has  a  sufficient  number  of  contiguous  nonused  words 
to  accommodate  the  command  being  entered.  It  Is  Important  to  remember 
that  the  first  entry  In  NTSFMT  for  a  keyword  which  Is  to  have  a  task 
associated  with  It  Is  the  number  of  subsequent  entries  associated  with 
that  task.  The  following  entry  Is  the  task  identification  number,  and  It 
must  be  a  unique  number  for  the  given  task  since  this  number  will  be 
extracted  from  the  NARGTB  array  by  the  task  execution  processor  and  used 
In  a  computed  GO  TO  to  call  the  subroutine  necessary  to  execute  the  task. 
This  task  Identification  number  Is  loaded  at  the  end  of  the  array  NAMTSK, 
and  Its  value  acts  as  a  pointer  to  the  NCODES  array.  Identifying  the 
location  of  the  name  of  the  task  In  array  NCODES.  In  addition  to  the 
KWFMTP  array  entry,  an  entry  must  be  made  in  the  KWARG  array;  again  this 
array  must  have  entries  in  the  same  position  as  the  KWNAME  and  the  KWFMTP 
arrays.  The  entry  in  the  proper  position  in  the  KWARG  array  indicates 
the  type  of  argument  which  this  keyword  may  have.  A  zero  entry  implies 
no  argument  for  this  keyword.  The  argument  types  are  documented  in  the 
block  data  subroutine  BLKDAT. 

Finally,  an  entry  must  be  made  in  the  area  labeled  KEYWORD 
INDICES  in  subroutine  BLKDAT.  Its  position  must  correspond  to  the  posi¬ 
tion  of  the  data  referring  to  the  keyword  in  arrays  KWNAME,  KWFMTP,  and 
KWARG.  The  symbol  is  made  up  of  six  or  less  characters,  the  first  two  of 
which  are  KW.  The  remaining  characters  would  be  a  mnemonic  relating  to 
the  keyword. 

Note  that  the  same  keyword  may  be  used  in  more  than  one 
command;  and  it  is  important  to  realize  that  If  more  than  one  task- 
oriented  keyword  occurs  In  a  command,  the  first  occurrence  of  such  a 
keyword  In  the  command  will  determine  the  task  Identification.  There¬ 
fore,  If  a  command  contains  two  keywords,  the  order  of  occurrence  in  the 
command  Is  Important.  The  keyword  Identifying  the  task  must  occur  first 
in  the  user  command  input. 


23 


If  the  number  of  entries  In  the  labeled  KEYWORD  INDICES  section 
of  subroutine  BLKDAT  Is  Increased,  the  variable  KWMAX  In  BLKDAT  must  be 
updated  to  reflect  the  new  total  number  of  entries  In  the  area.  Under  no 
circumstance  Is  KWMAX  to  exceed  255,  the  value  of  the  variable  KWLMT.  If 
the  number  of  keywords  does  exceed  255,  then  KWLMT  must  be  Increased  to 
the  next  power  of  2,  that  Is  to  512.  If  this  is  done,  then  the  packing 
format  for  keywords  must  be  restructured.  The  variable  MKMX  in  BLKDAT 
must  be  changed  from  3  to  2,  indicating  a  maximum  of  two  keywords  that 
may  be  packed  in  a  multiple  keyword.  Finally,  all  existing  multiple  key¬ 
words  must  be  unpacked  using  256  as  a  base.  These  must  then  be  repacked 
(maximum  of  two  per  word)  using  512  as  a  base.  This  system  allows  the 
code  to  be  executed  on  a  computer  with  as  little  as  32  bits  per  word. 

It  is  recommended  that  before  attempts  are  made  to  Include  or 
modify  tasks,  the  user  become  familiar  with  the  input  language  processing 
by  turning  on  the  debug  option  with  the  ILP  field  specified.  This  will 
result  in  a  detailed  printout  of  exactly  what  takes  place  during  the 
Input  language  processing,  the  construction  of  the  tables  associated  with 
the  processing  of  the  user's  command  stream,  and  the  tables  which  are 
used  during  the  task  execution  phase  of  the  GEMACS  code. 

An  example  of  the  addition  of  a  new  command  Is  presented  here. 
Rather  than  reproduce  the  entire  contents  of  the  arrays  to  be  modified, 
the  additions  to  each  array  will  be  presented.  The  command,  named 
COLPSE,  to  be  added  is  to  result  in  the  elimination  of  the  1th  row  and 
column  of  a  matrix.  This  would  eliminate  the  ith  segment  from  a 
structure  without  regenerating  the  interaction  matrix.  Assume  the  form 
of  the  command  would  be: 

SDS  -  COLPSE  (DS)  ,  ITH  =  n 

where  SDS  Is  the  resultant  data  set,  DS  Is  the  previously  defined  symbol 
which  contains  the  original  data,  and  n  is  the  index  to  the  row  and 
column  to  be  eliminated. 
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The  first  step  is  to  construct  the  NCODES  array  entries  for 
COLPSE  and  ITH.  This  is  done  as  previously  described  and  is  explicitly 
shown  below. 

C  =  3 

CO  =  3  *  26  +  15  =  207 

COL  =  207  *  26  +  12  =  13260 

COLP  =  13260  *  26  +  16  =  848656 

COLPS  =  848656  *  26  +  19  =  54314003 

COLPSE  =  54314003  *  26  +  5  =  3476096197 

I  =  9 

IT  =  9  *  26  +  20  =  596 
ITH  =  596  *  26  +  8  =  38152 

The  values  for  COLPSE  and  ITH  would  then  be  added  to  the  NCODES 
array  in  the  first  available  positions.  Therefore,  NCODES  (247)  * 
3476096197  and  NCODES  (248)  =  38152. 

The  next  step  involves  loading  the  keyword  indices  in  the 
KEYWORD  INDICES  section  of  the  PARTAB  common  block.  This  Involves 
defining  the  variables  KWCLPS  and  KWITH  which  will  have  the  Integer 
values  of  the  KWNAME,  KWARG,  and  KWFMTP  array  indices  containing  the 
keyword  data.  Assuming  that  the  new  data  will  be  loaded  at  the  end  of 
the  existing  list,  then  COLPSE  can  use  location  147  and  ITH  can  use  148. 
Therefore,  load  in  BLKDAT  In  the  KEYWORD  INDICES  section: 

DATA  KWCLPS,  KWITH/147,  148/ 

The  corresponding  locations  In  the  KWNAME  array  then  contain  data  which 
point  to  the  location  in  the  NCODES  array  containing  these  keywords: 

KWNAME  (147)  =  247  (Pointer  to  the  NCODES  array) 

KWNAME  (148)  =  248  (Pointer  to  the  NCODES  array) 
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The  corresponding  locations  In  the  keyword  argument  array  contain  data 
Indicating  the  argument  type  associated  with  these  keywords. 


KWARG  (147)  -  -2  (Defined  symbol  for  argument  of  COLPSE) 
KWARG  (148)  =  -3  (Literal  argument  for  ITH) 

The  corresponding  locations  In  the  format  table  pointer  array  would  Indi¬ 
cate  the  starting  location  of  a  task  format  If  a  task  Is  associated  with 
a  keyword. 


KWFMTP  (147)  =  111  (Pointer  to  NTSFMT  array) 

KWFMTP  (148)  =  0  (No  task  for  ITH) 

At  this  point,  the  variable  KWMAX  must  be  updated  to  148  from 
146  since  the  number  of  valid  keywords  Is  now  148. 

Data  must  also  be  loaded  Into  the  NAMTSK  array  In  subroutine 
BLKDAT .  Their  positions  In  the  array  need  not  correspond  to  the  position 
of  related  data  In  KWNAME,  KWARG,  and  KWFMTP.  The  contents  of  the  array 
point  to  the  position  of  the  task  name  In  the  NCODES  array.  Since  the 
position  Is  arbitrary.  It  may  be  placed  after  the  last  existing  entry. 
Assume  that  this  entry  Is  In  position  47.  Then, 

NAMTSK  (48)  =  247 

Finally,  the  entry  starting  In  position  111  of  NTSFMT  must  be  made. 
Writing  the  command  using  the  argument  type  codes  listed  In  BLKDAT,  we 
have: 


SOS  *  COLPSE  (DS)  , ITH  *  n 
-1,  -2  148 

Since  the  pointer  to  the  name  of  this  task  In  the  NCODES  array 
Is  stored  In  position  48  of  the  NAMTSK  array,  positions  111  through  115 
of  the  NTSFMT  array  would  be  loaded  with: 
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NTSFMT  -(Ul)  =  4  (Number  of  entries  for  task) 

NTSFMT  (112)  =  48  (Task  number) 

NTSFMT  (113)  =  -1  (Symbol  as  first  argument) 

NTSFMT  (114)  =  -2  (Defined  symbol  as  second  argument) 
NTSFMT  (115)  =  148  (Keyword  ITH  as  third  argument) 

Based  on  these  data  added  to  the  code,  when  the  COLPSE  command 
is  encountered,  GEMACS  will  perform  the  following  functions.  The  parse 
function  will  load  the  task  number  (48)  into  the  next  position  of  the 
NARGTB  array.  This  number  will  be  used  in  a  computed  GO  TO  statement  in 
TSKXQT  to  call  the  code  to  perform  this  function.  Task  numbers  must  be 
unique. 

The  next  action  will  be  to  search  for  the  DS  argument  for  the 
COLPSE  keyword  which  defined  the  task.  Starting  with  COLPSE,  subroutine 
FNDARG  will  search  for  the  next  previously  defined  symbol  DS  in  the  user 
input  stream.  If  one  is  not  found,  a  N0PC00  is  loaded  in  array  NARGTB 
and  the  search  for  SDS  will  begin;  and  if  found,  the  index  to  the  NDATBL 
array  will  be  loaded  into  NARGTB.  Again,  if  not  found,  a  NOPCOD  will  be 
entered  into  NARGTB.  The  next  argument  to  be  retrieved  is  the  keyword 
ITH.  Since  it  is  a  keyword,  the  argument  type  will  be  retrieved  from 
KWARG  (148),  and  FNDARG  will  search  for  a  literal  following  the  ITH 
field.  When  found,  the  negative  of  the  index  to  the  literal  table  array 
LITNUM  will  be  entered  into  the  next  NARGTB  location. 

Note  that  the  absence  of  arguments  does  not  cause  an  error  in 
the  Input  Language  Processor.  It  is  the  function  of  the  code  which 
executes  the  command  to  verify  the  adequacy  of  the  data  on  pass  1  of  the 
execution. 

Assume  that  this  command  is  the  third  command  and  that  it 
starts  at  location  17  of  NARGTB.  Then  NTSKTB  (3)  =  17  and  NTSKTB  (4)  = 
21  since  this  command  has  four  arguments.  The  contents  of  array  NARGTB 
will  be; 
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NARGTB  (17)  =48  (Task  number) 

NARGTB  (18)  =  5  (Indicating  the  location  of  OS  In  NDATBL) 
NARGTB  (19)  =  8  (Indicating  the  location  of  SOS  In  NDATBL) 
NARGTB  (20)  =  -5  (Indicating  the  location  of  n  In  LITNUM) 

The  contents  of  the  INTARG  array  when  the  subroutine  Is  entered 
to  execute  the  task  will  be: 

INTARG  (1)  =  5 
INTARG  (2)  =  8 
INTARG  (3)  =  -5 

If  Items  are  omitted,  the  value  associated  with  the  variable 
NOPCOD  will  be  present  in  the  INTARG  array.  Additional  ARGCOM  entries 
would  be  NUMARG  =  3.  NUMTSK  =  48. 

The  user  must  verify  the  correctness  of  the  data  in  the  sub¬ 
routine  added  to  perform  the  function.  In  addition,  the  user  must  modify 
TSKXQT  updating  the  computed  GO  TO  and  inserting  the  code  which  will  call 
the  subroutine  which  performs  the  function. 

0.  GEMACS  TASK  EXECUTION  PROCESSORS 

After  completion  of  the  input  language  process  or  module  initializa¬ 
tion,  the  control  is  returned  to  the  executive  routines.  If  no  errors 
have  occurred,  the  task  execution  processor  subroutine  TSKXQT  is  called 
to  execute  those  commands  present  in  the  task  list  stored  in  the  NARGTB 
array.  Execution  takes  place  in  two  passes.  During  pass  1  the  arguments 
present  in  the  NARGTB  array  are  checked  to  make  sure  that  they  are  con¬ 
sistent,  that  the  required  arguments  are  present,  and  that  no  table  over¬ 
flows  will  occur  during  execution.  The  pointer  to  the  first  argument  for 
each  task  In  the  NARGTB  array  is  stored  in  the  NTSKTB  array.  The  next 
entry  in  the  NTSKTB  array  points  to  the  first  argument  for  the  subsequent 
task.  Thus,  the  arguments  for  the  current  task  are  bounded  by  the 
current  entry  in  the  NTSKTB  array  and  the  next  entry  in  the  NTSKTB  array. 
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Before  the  task  is  executed,  a  call  ^s  made  to  subroutine  SYSCHK  to 
determine  i.f  the  time  for  a  checkpoint  is  past.  If  no  CHKPNT  command  has 
been  encountered  in  the  user's  input  stream,  no  checkpoint  will  be 
written. 

After  the  checkpoint  status  has  been  determined,  the  entries  in  the 
NARGTB  array  are  transferred  to  the  [NTARG  array  stored  in  common  ARGCOM. 
The  number  of  entries  transferred  is  stored  in  the  variable  NUMARG  which 
is  located  in  common  ARGCOM.  Control  is  then  transferred  on  a  computed 
GO  TO,  which  uses  the  task  number  as  the  index.  Some  commands  will  be 
executed  directly  in  the  TSKXQT  routine;  however,  most  commands  will  be 
executed  by  a  separate  command  process inq  subroutine.  When  the  sub¬ 
routine  is  called  to  execute  a  given  command,  it  will  retrieve  the  argu¬ 
ments  from  the  I  NT  ARG  array  and  perform  the  necessary  operations  to 
assure  the  val'di*:>  and  completeness  of  the  arquments  provided. 

The  individual  task  processors  are  described  in  the  remainder  of 
this  section.  Not  every  processor-  appear^  in  every  module;  reference  to 
figures  1-1  through  1-4  will  allow  the  reader  to  determine  where  each 
processor  appears. 

1 .  GEMACS  Geometry  Processor  (INPUT  Module) 

The  GEMACS  geometry  processor  is,  in  effect,  an  input  language 
processor  for  geometry  data.  These  data  are  separated  from  the  task  com¬ 
mands  by  an  l  Nit  command.  The  reason  for  processing  the  geometry  commands 
separately  is  that  the  geometry  command  format,  although  it  is  free- 
field,  is  of  fixed  order. 

f he  execution  of  the  geometry  processor  is  caused  by  a  GMDATA 
command  encountered  in  the  user's  input  stream.  The  functional  flow  is 
presented  in  figure  1-9.  Control  is  transferred  to  subroutine  GEODRV 
which  initializes  the  storage  area  and  data  blocks  necessary  to  process 
the  input  geometry.  If  the  data  set  name  specified  is  the  same  as  the 
previous  geometry  name  for  the  last  rail  to  GEODRV,  it  is  assumed  thai 
the  "ser  is  expanding  rhe  geometry  data  set  and  not  creating  a  new  data 
set.  Consequently,  the  new  data  will  he  concatenated  to  the  old  data 
and,  in  effect,  the  structure  being  represented  will  be  expanded. 
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Subroutine  GEODRV  calls  subroutine  WYRDRV  to  process  the 
geometry  Input.  The  subroutine  WYRDRV  performs  basically  the  same  func¬ 
tion  as  the  subroutines  PARSE  and  FNDARG  in  the  Input  Language  Processor. 
Subroutine  WYRDRV  uses  subroutine  SCAN  to  read  the  user's  input.  How¬ 
ever,  there  is  a  basic  difference  in  that  common  variable  IGNORE  is  set 
to  ISON  for  calls  to  SCAN  from  the  geometry  processor.  This  results  in 
subroutine  SCAN  performing  two  operations  differently  for  the  geometry 
input.  First,  keywords  will  not  be  recognized  if  they  are  present  in  the 
Input.  That  is,  ail  alphanumeric  input  will  be  returned  as  alphanumeric, 
and  secondly,  monadic  operators  are  not  treated  as  separate  fields.  The 
sign  of  the  subsequent  numeric  field  following  the  monadic  operator  is 
changed  to  that  of  the  monadic  operator. 

As  stated  previously,  the  inputs  to  the  geometry  processor  are 
free-field;  however,  they  must  appear  in  a  specified  order  for  each 
command  as  discussed  in  the  User  Manual.  Subroutine  WYRDRV  searches  the 
NVAL  array  for  the  occurrence  of  one  of  the  mnemonics  associated  with  a 
geometry  processor  command.  If  such  a  mnemonic  is  found,  control  is 
transferred  based  on  the  mnemonic  index  to  that  portion  of  WYRDRV  to 
process  the  geometry  command.  If  the  mnemonic  entry  is  not  found,  a 
fatal  error  will  occur,  though  processing  will  continue  until  an  END 
command  is  encountered  in  the  geometry  input  stream.  In  this  way  all 
errors  in  the  user's  geometry  input  will  be  detected  during  a  single  run. 

After  completing  the  reading  of  the  user's  input  for  the 
geometry  processor,  control  is  returned  to  subroutine  GEODRV  which  calls 
subroutine  8U8BLE  to  sort  the  SEGTBL  array  into  ascending  order.  The 
segments  specified  during  the  geometry  input  must  be  in  their  correspon¬ 
ding  location  in  the  SEGTBL  ar^ay;  that  is,  segment  I  must  be  stored  in 
the  first  location,  segment  2  must  be  stored  in  the  second  location,  and 
so  forth.  The  SEGTBL  array  is  sorted  such  that  all  wires  are  stored  in 
ascending  segment  order,  followed  by  all  patches  stored  in  ascending  tag 
order.  GTD  elements  fall  to  the  end  of  the  list.  If  there  have  been  N 
segments  or  patches  specified  during  the  input  geometry,  subroutine 
BUBBLE  must  find  all  N  segments  or  patches.  Failure  to  do  so  will  result 
in  a  fatal  error. 
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After  the  SEGTBL  array  has  been  sorted,  subroutine  GEODRV  will 
call  subroutine  JCTION  to  determine  the  junctions  and  patch  connections 
for  each  wire  segment  specified.  In  subroutine  JCTION  the  end  points  of 
each  segment  are  compared  with  the  end  points  of  all  higher  numbered 
segments;  if  the  end  points  are  found  to  be  within  a  specified  tolerance 
of  each  other,  they  are  assumed  to  form  a  multiple  or  single  junction. 
This  specified  tolerance  is  the  variable  ZERO  loaded  in  subroutine  BLKDAT 
and  should  represert  the  round-off  error  limit  for  the  computer  on  which 
GEMACS  is  being  executed.  If  two  wire  segments  are  found  to  be  connected 
to  the  same  junctions  on  both  ends,  they  are  identical  segments.  In  this 
case,  the  SEGTBL  array  entry  for  the  higher  numbered  segment  is  set  to  0. 
During  subsequent  execution  of  the  geometry,  all  interactions  with  any 
segment  number  0  will  be  set  to  0  except  for  the  self  term  which  will  be 
set  to  1.  Using  this  artifice  of  an  augmented  matrix,  segments  in  a 
plane  of  reflection  or  on  the  axis  of  rotation  are  allowed;  their  excita¬ 
tion  will  be  set  to  0,  resulting  in  a  current  of  0  on  the  segment.  Thus 
the  only  segment  which  will  be  considered  in  the  subsequent  analysis  will 
be  the  original  segment  on  the  axis  of  rotation  or  in  the  plane  of 
symmetry . 

Once  all  of  the  segment  connections  have  been  identified,  sub¬ 
routine  LNKJCT  is  called  to  generate  the  circular  linked  list  identifying 
the  connnectivity  of  all  segments.  This  is  accomplished  by  taking  the 
junction  information  for  the  first  segment  and  searching  all  subsequent 
segments  for  identical  junction  information.  When  a  segment  is  found 

with  the  same  junction  condition  as  the  first  segment,  the  junction  word 
for  the  first  segment  is  set  to  point  to  the  segment  number  to  which  it 
is  connected  with  a  bias  to  indicate  which  end  of  the  segment  is  con¬ 
nected  to  segment  1.  The  search  is  continued  through  all  remaining  seg¬ 
ments  to  find  the  next  segment  connected  at  the  junction  for  segment  I, 
and  the  junction  word  for  the  previously  connected  segment  is  then 

modified  to  point  to  the  correct  end  of  the  next  segment  connected.  When 

the  last  segment  at  the  junction  is  found,  its  junction  word  is  modified 

to  point  to  the  first  segment  at  the  given  junction.  This  is  accom¬ 
plished  for  both  ends  of  any  given  segment  and  results  in  a  circular 
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linked  list  such  that  the  connectivity  information  for  any  segment  points 
directly  to  the  next  segment  connected  at  the  junction.  The  connectivity 
information  for  the  next  segment  points  to  the  next  segment  connected, 
and  this  continues  until  the  pointer  links  the  last  segment  back  to  the 
first  segment  connected  to  a  given  junction. 

Once  all  of  the  segments  have  been  linked,  control  is  returned 
to  subroutine  GEOORV  which  will  then  print  the  wire  and  patch  data  and 
convert  from  an  end  point  representation  of  the  segment  and  patch  to  a 
center  point  and  direction  cosine  representation  of  the  segment  and 
patch.  This  final  data  form  is  then  used  throughout  the  remainder  of  the 
GEMACS  code  when  geometry  data  are  referenced. 

The  GTD  geometry  elements  (plates,  cylinders,  and  endcaps)  pro¬ 
cessed  by  WYRDRV  now  appear  at  the  end  of  the  geometry  data  set.  These 
elements  must  be  linked  together  so  that  the  GTD  physics  routines  know 
which  end  cap  is  attached  to  which  end  of  the  cylinder  and  which  (if  any) 
segments  connect  to  plates.  Subroutine  LNKGTD  performs  this  function. 

Control  then  returns  to  GEODRV,  which  calls  subroutine  PRTGTD 
to  output  a  list  of  data  on  all  GTD  geometry  elements.  Finally,  sub¬ 
routine  PUTSYM  is  called  to  store  the  geometry  data  on  an  external 
peripheral  file. 

2.  Interaction  Matrix  Processor  (GTD,  MOM  Modules) 

The  interaction  matrix  processor  is  interfaced  with  the  task 
execution  processor  through  subroutine  ZIJDRV  in  the  GTD  and  MOM  modules. 
The  flow  for  each  module  is  illustrated  in  figures  1-10  and  I  - 1 1 .  In 
both  modules  this  subroutine  retrieves  the  arguments  from  the  INTARG 
array  in  common  /ARGCOM/.  Default  values  may  be  used  for  the  geometry 
data  set  name,  the  frequency,  and  the  ground  parameters.  If  the  fre¬ 
quency  has  not  been  specified  on  the  ZGEN  command  which  causes  execution 
of  the  subroutine  ZIJDRV,  then  It  must  have  been  previously  specified  on 
another  command  or  in  a  direct  manipulation  statement.  In  this  case,  the 
frequency  Is  retrieved  from  the  common  storage  area  AMPZIJ.  A  value  of  0 
for  the  frequency  will  result  in  a  fatal  error.  At  this  point  the 
functions  of  ZIJDRV  in  the  two  modules  differ  and  must  be  discussed 
separately. 
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Figure  1-10.  GTD  Module  Interaction  Matrix  Generation 
Function/Subroutine  Interface 
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a.  6TD  Module  Interaction  Matrix  Processing 

After  the  above  preliminaries  have  been  performed,  .the 
segment  shadowing  matrix  Is  defined  by  SYMDEF.  This  data  set  will  be 
filled  later  by  ZGTDRV  with  Integer  pairs.  The  pairs  define  geometry 
segments  (wires  and  patches)  for  which  the  direct  path  between  a  pair  Is 
obstructed  by  a  GTO  geometry  object.  The  shadowing  matrix  Is  used  by 
ZIJDRV  and  ZIJSET  In  the  MOM  module  to  Indicate  which  MOM  Interactions 
should  be  set  to  zero  due  to  this  obstruction.  One  obstructed  path  cor¬ 
responds  to  one  entry  In  the  shadowing  matrix.  The  segment  number  of  the 
source  segment  Is  placed  In  the  left  part  of  the  entry,  while  the  segment 
number  of  the  observation  segment  Is  placed  In  the  right  part  of  the 
entry. 

Next,  ZGTDRV  Is  called  to  generate  the  GTD  portion  of  the 
Interaction  matrix.  Subroutine  ZGTDRV  Interfaces  the  GTD  physics 
routines  with  the  rest  of  the  code.  Since  the  entire  interaction  matrix 
will  seldom  fit  In  core  at  once.  It  is  necessary  to  call  ZGTDRV  several 
times,  once  for  each  block  of  the  interaction  matrix  which  will  fit  In 
core.  There  must  be  storage  available  to  generate  at  least  two  columns 
of  the  Interaction  matrix  In  core  at  one  time.  Since  each  element 
requires  two  words  (complex  data),  the  code  requires  4N  storage  locations 
In  the  TEMP  array,  where  N  Is  the  number  of  wires  and  patches  for  the 
geometry  being  modeled.  If  the  structure  Is  loaded,  the  MOM  module  will 
require  an  additional  2N  locations,  for  an  effective  limit  of  6N  loca¬ 
tions  for  a  loaded  structure. 

After  each  block  of  the  Interaction  matrix  has  been  gener¬ 
ated  It  will  be  written  to  Its  associated  peripheral  file  using  sub¬ 
routine  PUTSYM.  The  symbol  in  the  NDATBL  array  will  have  Its  column 
attributes  updated  to  reflect  the  total  number  of  columns  stored  at  this 
point.  The  process  continues  until  the  entire  interaction  matrix  has 
been  generated. 

Note  that  the  interaction  matrix,  as  generated.  Is 
actually  the  transpose  of  the  Interaction  matrix  written  down  In  a  formal 
manner.  The  primary  reason  for  this  storage  method  Is  more  rapid  periph¬ 
eral  file  I/O  for  matrix  multiplication  and  other  matrix  operations. 
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b.  MOM  Module  Interaction  Matrix  Processing 

The  MOM  version  of  ZIJDRV  also  performs  the  data  retrieval 
functions  discussed  above.  Furthermore,  If  a  load  data  set  has  been 
specified,  the  data  associated  with  the  structure  loads  are  retrieved  and 
stored  In  the  first  available  cells  of  the  TEMP  array. 

If  symmetry  can  be  taken  advantage  of,  subroutine  SMATRX 

Is  called  to  generate  the  symmetry  operator  matrix  in  the  next  available 

|| 

cells  of  TEMP.  The  rank  of  the  symmetry  matrix  Is  equal  to  2  ,  where  M 
Is  the  number  of  symmetry  reflections  or  rotations.  More  Information  on 
syimnetry  may  be  found  In  sections  F.2  and  F.3  of  the  Engineering  Manual. 

The  next  step  is  to  retrieve  the  Interaction  matrix  and 
shadowing  data  previously  computed  by  the  GTD  module.  If  no  GTD  Interac¬ 
tions  have  been  selected,  this  step  is  bypassed.  As  the  formats  of  the 
GTD  and  MOM  matrices  are  Identical  (complex,  transpose),  the  MOM  data 
will  be  added  to  the  GTD  data.  When  no  GTD  Interactions  have  been 
selected,  the  interaction  matrix  is  zeroed  initially  instead. 

Whenever  a  ground  plane  has  been  specified,  it  is  neces¬ 
sary  to  Identify  which  wire  segments.  If  any,  are  connected  to  ground  so 
that  the  method  of  images  may  be  applied  correctly  to  the  pulse  +  sine  + 
cosine  basis  function.  Subroutine  CNVAMP  performs  this  function  by 
modifying  the  connection  data  in  the  SEGTBL  array  for  any  grounded 
segments. 

After  the  frequency,  ground  parameters,  geometry  data,  and 
load  data  have  been  retrieved,  the  interaction  matrix  Is  defined  and  the 
attributes  determined.  For  the  initial  definition  of  the  Interaction 
matrix,  the  number  of  columns  Is  set  to  zero.  This  Is  in  order  to  enable 
a  checkpoint/restart  to  be  executed  out  of  subroutine  ZIJDRV.  After  the 
symbol  associated  with  the  Interaction  matrix  has  been  defined,  the 
common  area  In  array  TEMP  available  to  store  the  elements  of  the  Inter¬ 
action  matrix  Is  determined.  There  must  be  storage  available  to  generate 
at  least  two  columns  of  the  Interaction  matrix  in  core  at  one  time. 
(This  is  In  addition  to  the  column  of  storage  required  in  the  TEMP  array 
for  the  load  data.)  Since  each  element  requires  two  words  due  to  the 


fact  that  the  data  are  complex,  the  code  requires  6N  storage  locations  In 
common  array  TEMP  for  a  loaded  structure,  and  only  4N  locations  In  the 
TEMP  array  for  an  unloaded  structure,  where  N  Is  the  number  of  wires  and 
patches  for  the  geometry  being  modeled. 

After  the  available  storage  has  been  determined,  the 
number  of  columns  which  may  be  generated  at  any  one  time  In  core  Is 
determined,  and  subroutine  ZIJSET  Is  called  to  generate  each  block  of  the 
Interaction  matrix.  Upon  return  from  ZIJSET,  the  loads  specified  for  the 
structure  are  added  to  the  diagonal  elements  of  the  Interaction  matrix. 
If  symmetry  can  be  utilized,  the  Interaction  matrix  Is  multiplied  by  the 
symmetry  matrix  (subroutine  SYMMOD)  and  reblocked  Into  square  submatrices 
(subroutine  REBLCK).  This  format  allows  rapid  solution  of  the  matrix 
problem  by  the  solution  processor. 

After  the  current  block  of  the  Interaction  matrix  has  been 
generated  with  Its  associated  loads,  the  symbol  in  the  NDATBL  array  asso¬ 
ciated  with  the  Interaction  matrix  data  will  have  Its  column  attribute 
updated  to  reflect  the  total  number  of  columns  of  the  interaction  matrix 
which  have  been  generated  at  this  point.  Once  this  Is  accomplished,  the 
current  block  of  the  interaction  matrix  will  be  written  out  to  a  periph¬ 
eral  file.  This  procedure  will  continue  until  all  columns  of  the  inter¬ 
action  matrix  have  been  generated. 

c.  Communication  Between  GTD  and  MOM  Versions  of  ZIJPRV 

The  division  of  the  interaction  matrix  generation  function 
between  two  GEMACS  modules  makes  necessary  a  method  of  transferring  data 
generated  In  the  GTD  module  to  the  MOM  module.  This  is  done  via  the 
checkpoint  file,  as  discussed  under  module  initialization  (secton  I.B.l). 
In  this  way  data  generated  by  ZIJDRV  (GTD)  are  available  to  ZIJDRV  (MOM). 

The  easiest  example  to  understand  is  the  case  In  which  all 
capabilities  of  the  code  are  selected,  both  MOM  and  GTD  Interactions  and 
both  MOM  and  GTD  objects  In  the  geometry.  In  this  case  ZIJDRV  (GTD) 
generates  the  Interaction  matrix  for  GTD  Interactions.  The  matrix  Is 
stored  on  the  peripheral  file  associated  with  that  symbol  until  module 
termination,  at  which  time  that  peripheral  file  Is  written  to  the  check¬ 
point  file.  The  MOM  module  Is  Initialized  from  that  checkpoint  file,  and 
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the  GTO-generated  data  are  placed  back  onto  a  peripheral  data  file.  It 
Is  this  data  set  which  Is  retrieved  Into  core  by  ZIJDRV  (MOM).  The  MON 
module  adds  the  unobstructed  method  of  moments  Interactions  to  the  (pre¬ 
viously  generated)  GTD  Interactions,  and  thus  the  complete  Interaction 
matrix  Is  generated. 

Two  special  cases  can  occur,  and  these  will  modify  the 
flow  of  the  ZIJDRV  subroutines  slightly.  The  first  case  occurs  when  the 
user  requests  GTD  interactions,  but  no  GTD  objects  are  In  the  geometry. 
In  this  case  a  zero  GTD  interaction  matrix  is  generated  and  passed  to  the 
MOM  module  via  the  checkpoint  file. 

The  second  case  occurs  when  the  GTD  module  is  executed, 
but  no  GTD  interactions  have  been  selected.  This  time  no  data  are  gener¬ 
ated  and  no  peripheral  file  Is  used  because  the  exercise  of  the  GTD 
module  should  be  transparent  if  no  GTD  interactions  have  been  selected. 
(If  the  GTD  module  were  omitted  from  the  execution  stream,  no  data  would 
be  generated  either.)  In  this  case,  the  MOM  module  defines  the  inter¬ 
action  matrix  data  set  and  Initializes  It  to  zero  itself. 

3.  Matrix  Solution  Processor  (MOM  Module) 

The  solution  of  the  set  of  simultaneous  linear  equations  which 
results  from  the  reduction  of  the  electric  or  magnetic  field  Integral 
equations  using  the  method  of  moments  formalism  is  carried  out  In  three 
primary  routines  In  the  GEMACS  code.  These  routines  will  perform  the 
lower/upper  triangular  decomposition  on  the  interaction  matrix  (LUDDRV), 
the  forward  elimination  and  back  substitution  on  the  decomposed  Inter¬ 
action  matrix  (DECOMP),  and  the  Iteration  until  convergence  or  divergence 
Is  Indicated  (SOLDRV). 

The  decomposition  of  the  matrix  Is  interfaced  through  sub¬ 
routine  LUDDRV  which  will  retrieve  the  Information  and  the  data  for  the 
subroutine  DECOMP.  This  task  Is  illustrated  In  figure  1-12.  Upon  entry, 
subroutine  LUDDRV  will  generate  two  auxiliary  symbols  to  be  associated 
with  the  symbol  name  of  the  matrix  to  be  decomposed.  These  symbols  will 
be  formed  by  removing  the  rightmost  three  characters  of  the  symbol  name 
and  appending  the  characters  LWR  and  UPR  which  will  represent  the  lower 
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Figure  1-12.  Lower/Upper  Decomposition  Function/Subroutine 
Interface 


and  upper  triangular  decomposed  matrices.  These  symbolic  names  may  be 
addressed  in  PRINT  and  WRITE  commands  in  the  command  language.  They  may 
also  be  referenced  in  a  PURGE  command  in  order  to  make  the  peripheral 
files,  which  they  occupy,  available  for  other  data  when  the  lower  and 
upper  triangular  matrices  are  no  longer  needed.  LUDDRV  also  temporarily 
destroys  the  data  in  the  array  SEGTBL.  The  area  formerly  occupied  by 
these  data  is  now  used  to  perform  the  decomposition  operations. 

All  matrices  are  decomposed  using  the  same  subroutine.  Sub¬ 
routine  DECOMP  will  decompose  a  banded  or  nonbanded,  real  or  complex,  in 
core  or  out-of-core  matrix.  DECOMP  is  one  GEMACS  subroutine  which  inter¬ 
faces  directly  with  subroutines  RDEFIL  and  WRTFIL  without  passing  through 
subroutines  GETSYM  and  PUTSYM.  This  is  in  order  to  increase  the  effi¬ 
ciency  of  the  code  by  cutting  down  on  extraneous  and  unnecessary  computa¬ 
tions  which  would  be  done  in  subroutines  GETSYM  and  PUTSYM  since  they 
would  be  called  alternately  for  each  row  and  column  of  the  lower  and 
upper  triangular  matrix  as  the  matrices  are  generated  via  the  decomposi¬ 
tion  of  the  source  matrix.  Subroutine  DECOMP  must  be  provided  storage 
for  at  least  three  columns  of  the  original  matrix  to  be  decomposed.  In 
general,  this  presents  no  problem  since  there  must  have  been  this  much 
storage  available  in  order  to  generate  the  interaction  matrix.  However, 
if  subroutine  DECOMP  is  being  used  to  decompose  a  matrix  which  was  gener¬ 
ated  exterior  to  GEMACS,  the  storage  considerations  must  be  recognized  by 
the  user. 

During  the  decomposition  of  the  matrix,  subroutine  DECOMP  will 
reference  FORTRAN  logical  units  1  and  2,  identified  internally  as  I0S1 
and  I0S2.  Once  it  has  been  determined  that  the  entire  matrix  remaining 
to  be  decomposed  will  fit  in  core,  the  I/O  of  the  component  parts  of  the 
lower  and  upper  triangular  matrix  is  halted  until  the  entire  matrix  has 
been  decomposed.  Until  this  occurs,  the  rows  of  the  lower  and  upper 
triangular  matrices  are  written  to  their  peripheral  files  as  they  are 
generated.  The  elements  of  these  rows  and  columns  are  the  elements  in 
the  pivot  row  and  column  of  the  matrix.  Diagonal  pivoting  is  used  during 
the  decomposition.  The  remainder  of  the  matrix  beneath  the  diagonal  is 
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all  that  will  be  required  for  the  subsequent  decomposition  about  the  next 
diagonal  element;  therefore,  these  elements  are  written  to  the  peripheral 
file  which  is  not  being  used  as  the  source  of  the  matrix  for  the  current 
round  of  decomposition. 

When  the  current  round  of  decompositon  is  completed,  the 
peripheral  files  I0S1  and  I0S2  are  interchanged,  and  the  output  file  for 
the  previous  decomposition  becomes  the  input  file  for  the  current  decom¬ 
position,  and  the  input  file  for  the  previous  decomposition  becomes  the 
output  file  for  the  current  decomposition.  These  scratch  files  are  flip- 
flopped  in  this  way  until  the  entire  remaining  matrix  resides  totally  in 
core,  at  which  time  there  is  no  need  for  further  I/O  to  the  peripheral 
devices  until  the  decomposition  is  completed.  When  completed,  any 
remaining  elements  of  the  upper  triangular  matrix  are  written  to  the 
peripheral  file  associated  with  it,  and  any  remaining  elements  of  the 
lower  triangular  matrix  are  written  to  its  peripheral  file. 

Checkpointing  may  occur  during  the  decomposition  of  a  matrix. 
It  is  for  this  reason  that  the  symbol  name  entries  in  NDATBL  for  the 
symbols  associated  with  both  the  lower  and  upper  triangular  matrices  are 
updated  to  reflect  the  actual  number  of  rows  and  columns  generated  by  the 
decomposition  each  time  a  row  or  column  is  written  to  its  respective 
peripheral  file. 

Once  the  matrix  has  been  decomposed  into  its  lower  and  upper 
triangular  components,  the  solution  is  obtained  by  forward  elimination 
and  back  substitution.  This  process,  illustrated  in  figure  1-13,  is  con¬ 
trolled  by  subroutine  SOLDRV  which  also  controls  the  BMI  solution 
process.  The  command  data  are  retrieved  by  SOLDRV  and  the  determination 
is  made  regarding  the  process  involved.  If  there  are  three  arguments,  a 
BACSUB  command  is  being  executed;  otherwise  a  BMI  solution  is  being 
sought.  For  both  cases,  the  RHS  is  retrieved  through  GETSYM;  and,  if  a 
BMI  solution  is  being  processed,  the  original  matrix  is  retrieved  and 
sent  to  BMIRHS  to  compute  the  term  RHS  =  RHS  -  (L+U)  IQ,  where  IQ  is  the 

solution  obtained  from  the  last  iteration.  I  is  initialized  to  zero 

o 

unless  specifically  initialized  by  the  user  by  the  SET  command.  This  is 
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accomplished  by  specifying  a  different  data  set  name  for  the  solution  on 
the  left-hand  side  of  the  BMI  command  than  that  used  for  multiplying  the 
(L+U)  term  on  the  right-hand  side. 

For  both  cases,  the  solution  for  the  equation  A  *  I  *  RHS  Is 
obtained  through  BACSUB,  which  will  buffer  in  the  components  of  A  which 
fit  In  core  and  call  SOLVOC  to  determine  I.  The  actual  data  for  I  will 
overwrite  RHS.  At  this  point,  if  BACSUB  is  being  executed,  a  jump  Is 
made  to  the  output  portion  of  the  code.  Otherwise,  the  convergence 
criterion  is  checked.  If  convergence  has  occurred,  a  jump  is  made  to  the 
output  portion  of  the  code.  If  convergence  has  not  occurred  and  diver¬ 
gence  Is  not  indicated,  a  new  RHS  Is  computed  as  RHS  =  RHS  -  (L+U)  I  and 
the  entire  process  is  repealed.  If  divergence  Is  indicated,  the  previous 
solution  is  retained  and  a  jump  to  the  output  portion  of  the  code  Is 
made. 

The  output  portion  stores  the  final  solution  and  recovers  the 
geometry  and  load  data  associated  with  the  initial  RHS.  The  electrical 
parameters  for  antenna  source  segments  and  loaded  segments  are  computed 
and  output  to  the  user.  Control  then  returns  to  TSKXQT. 

4.  Excitation  Processors  (GTD,  MOM  modules) 
a.  MOM  Module  Excitation  Processing 

The  structure  excitation  processor.  Illustrated  In  figure 
1-14  allows  the  user  to  specify  voltage,  and/or  plane  and  spherical  wave 
excitations.  Any  superpositioning  of  these  three  sources  may  be 
utilized.  Voltage  excitation  is  converted  to  the  E-fleld  representation 
using  a  delta-gap  source  model.  The  electric  field  to  be  used  as  the 
source  Is  simply  the  voltage  applied  to  the  source  segment  divided  by  the 
segment  length.  The  Implications  of  this  type  of  model  are  discussed  In 
section  C.2.a  of  the  GEMACS  Engineering  Manual.  If  a  segment  Is  excited 
using  a  voltage  source,  it  Is  Identified  as  an  antenna  driven  segment  by 
a  1  in  row  11  of  the  SEGTBL  array  for  that  segment.  The  E-field  repre¬ 
sentation  Is  then  derived  by  dividing  the  user-specified  Input  voltage  by 
the  segment  length  stored  in  row  10  of  SEGTBL. 

The  wave  type  of  excitation  may  be  specified  with  or 
without  a  parameter  indicating  the  radial  distance  to  the  source.  If  the 
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-14.  MOM  Module  Excitation  Processor  Function/ 
Subroutine  Interface 
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radial  parameter  Is  not  specified,  a  plane  wave  excitation  will  be 
assumed.  If  the  radial  parameter  is  specified,  a  spherical  source  will 
be  located  at  the  spherical  coordinate  specified  on  the  EFIELD  command. 
Both  types  of  wave  excitation  may  be  used  in  the  presence  of  a  ground 
plane.  The  reflected  waves  will  be  computed  using  the  modified  Fresnel 
reflection  coefficient  as  described  in  section  C.2.b  of  the  Engineering 
Manual . 

The  excitation  source  is  represented  as  the  vector  sum 
E  =  Ej  ±  je  §2-  The  magnitude  of  lE^I/IE^I  is  the  eccentricity  e.  The 
polarization  is  indicated  by  the  algebraic  sign  of  the  eccentricity  as 
specified  on  the  user's  input.  The  direction  of  the  propagation  wave 
vector,  k,  is  given  by  the  vector  product  E^  x  E2*  For  plane  wave  exci¬ 
tation,  k  is  constant;  and  for  spherical  wave  excitation  k  will  always  be 
oriented  toward  the  midpoint  of  the  wire  segment  or  patch  surface  being 
excited. 

The  total  excitation  vector  will  be  accumulated  for  each 
frequency  and  geometry  data  set  specified.  When  either  the  frequency  or 
geometry  is  not  the  same  as  that  specified  on  the  last  entry  into  sub¬ 
routine  EXCDRV,  the  excitation  vector  will  be  reinitialized  to  zero. 

Upon  entry,  the  subroutine  EXCDRV  retrieves  the  command 
parameters  (from  the  INTARG  array),  the  previous  excitation  (if  the 
frequency  has  not  changed),  and  the  geometry  data  set.  If  the  frequency 
has  changed,  then  all  previous  excitation  data  are  zeroed  out.  Any 
portion  of  the  excitation  previously  computed  in  the  GTD  module  will  be 
added  to  the  previous  excitation  (or  zero)  data. 

If  the  excitation  is  a  spherical  or  plane  wave,  the  sub¬ 
routine  SPWDRV  will  compute  the  incident  electric  field  at  the  structure. 
It  will  also  compute  the  ground  reflected  component  if  a  ground  is  speci¬ 
fied  and  add  this  to  the  direct  wave  at  the  structure. 

If  the  excitation  is  a  voltage  source  for  an  antenna,  then 
EXCDRV  will  compute  the  tangential  electric  field  on  the  segment  using 
the  delta-gap  model.  The  field  is  derived  as  the  voltage  specified  by 
the  user  divided  by  the  length  of  the  segment. 
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For  either  type  of  excitation,  the  data  are  stored  in 
array  TEMP.  If  both  types  of  excitation  are  present,  then  the  sunning  of 
sources  for  any  segment  is  performed  in  the  transfer  of  the  data  to  TEMP. 
Finally,  the  data  are  transferred  to  the  symbol  specified  by  the  user. 

Note  that  if  a  structure  excitation  has  been  previously 
computed  by  the  GTD  module,  the  MOM  module  computation  of  the  same  exci¬ 
tation  is  suppressed. 

b.  GTD  Module  Excitation  Processing 

The  GTD  module  excitation  processor  computes  the  tangen¬ 
tial  electric  and  magnetic  fields  on  the  structure  being  modeled  due  to 
wave-type  sources  in  the  presence  of  GTD  geometry  objects.  The  processor 
is  illustrated  in  figure  1-15.  The  operation  of  the  GTD  module  processor 
follows  that  of  the  MOM  module  processor  quite  closely.  Only  significant 
differences  will  be  discussed  here. 

The  GTD  module  version  of  the  excitation  processor  first 
examines  the  contents  of  the  geometry  being  excited.  If  there  are  no  MOM 
objects  in  the  geometry,  an  excitation  vector  cannot  be  generated. 
EXCDRV  defines  an  empty  data  set  in  this  case  so  that  any  subsequent 
EFIELD  command  can  use  the  data  set  name  as  input  to  compute  incident 
fields. 

Next  the  interaction  array  is  checked  to  see  if  any  GTD 
interactions  were  specified.  If  not,  or  if  there  are  no  GTD  objects  in 
the  geometry  data  set,  the  GTD  contributions  to  the  excitation  are  zero. 
In  this  case,  the  MOM  module  performs  the  excitation  generation  function. 

The  excitation  from  a  wave  source  is  computed  by  a  call  to 
ZGTDRV.  EXCDRV  sets  up  the  arguments  to  be  passed  to  ZGTDRV,  and  ZGTDRV 
returns  the  excitation  to  be  added  to  the  TEMP  array.  Voltage  excitation 
is  performed  only  by  the  MOM  module  excitation  processor. 

c.  Communication  between  GTD  and  MOM  Versions  of  EXCDRV 

Unlike  the  interaction  matrix  processor  previously  dis¬ 
cussed,  there  is  no  direct  communication  between  the  two  modules  for 
excitation  processing.  Wave-type  excitations  are  performed  either  com¬ 
pletely  in  the  GTD  module  or  completely  in  the  MOM  module,  depending  on 
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Figure  I- 


.  GTO  Module  Excitation  Processor  Function/ 
Subroutine  Interface 
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the  presence  or  absence  of  GTO  objects  or  Interactions.  Voltage-type 
excitation  is  performed  only  by  the  MOM  module. 

5.  Field  Pattern  Processors  IGTD.  MOM.  OUTPUT  Modules) 

The  field  pattern  processors  are  used  to  compute  the  near-  and 
far-field  responses  of  the  structure  being  excited,  with  or  without  the 
addition  of  the  fields  incident  from  wave-type  sources.  When  no  GTD  or 
incident  field  interactions  have  been  requested,  the  MOM  and  OUTPUT 
modules  perform  this  function.  If  either  or  both  GTD  or  incident  field 
effects  are  desired,  the  GTO  module  is  also  required, 
a.  GTO  Module  Field  Pattern  Processing 

The  field  pattern  processor  for  the  GTO  module  is  illus¬ 
trated  in  figure  I - 16 .  Subroutine  FLDDRV  examines  the  INTARG  array  and 

retrieves  observation  points  and  geometry  data  set  attributes. 

If  GTD  interactions  are  specified  and  the  second  data  set 
in  INTARG  is  a  solution  data  set,  the  Green's  function  matrix  is  computed 

by  ZGTDRV  and  stored  by  PUTSYM.  The  symbolic  name  for  the  Green's  func¬ 

tion  matrix  Is  XXXGFM,  where  the  Xs  represent  the  first  three  characters 
of  the  field  matrix  symbolic  name. 

If  incident  fields  were  specified  or  if  the  second  INTARG 


data  set  is  a  source  data  set,  the  incident  field  matrix  is  computed  by 
ZGTDRV.  Otherwise  the  incident  field  matrix  is  set  to  zero. 

For  GTD-only  problems,  the  incident  field  data  set  may  be 
passed  directly  to  the  OUTPUT  module.  The  Green's  function  matrix  Is  not 
generated.  For  MOM/GTD  hybrid  problems,  the  MOM  module  takes  the  Green's 
function  matrix,  multiplies  it  by  the  solution  currents  and  adds  It  to 
the  incident  field  to  obtain  the  total  field. 

b.  MOM  Module  Field  Pattern  Processor 

The  field  pattern  processor  for  the  MOM  module  is  Illus¬ 
trated  in  figure  1-17.  If  GTO  or  incident  field  interactions  have  been 
specified,  control  is  passed  to  subroutine  EGFMAT  to  generate  the  total 
field  pattern  from  the  Green's  function  matrix,  solution  vector,  and 
incident  field  vector.  Otherwise,  subroutine  FLDDRV  retrieves  the  solu¬ 
tion  (currents)  and  geometry  data  and  then  calls  subroutines  CABC, 


Figure  1-16.  GTD  Module  Field  Pattern  Processor  Function/ 
Subroutine  Interface 
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Figure  1-17. 


MOM  Module  Field  Pattern  Processor  Function/ 
Subroutine  Interface 
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NERFLD,  and  FARFLO  to  compute  the  expansion  coefficient  of  the  current, 
the  near  electric  field  component,  and  the  far  electric  field  component, 
respectively.  These  subroutines  function  exactly  as  they  did  In  their 
host  program,  AMP.  After  the  field  components  have  been  determined,  they 
are  translated  to  the  coordinate  system  specified  by  the  user  and  stored 
on  the  field  data  set  peripheral  file  In  real  and  Imaginary  form. 

c.  OUTPUT  Module  Field  Pattern  Processor 

The  field  pattern  processor  for  the  OUTPUT  module  Is  shown 
In  figure  1-18.  After  observation  points  have  been  determined  by  FLDDRV, 
the  real /Imaginary  field  data  set  generated  by  either  the  GTD  or  MOM 
module  field  pattern  processor  Is  retrieved,  converted  to  magnitude/phase 
format,  and  restored.  Control  Is  then  transferred  to  FLDOUT  which  will 
list  the  geometrical  and  field  parameters  and.  If  requested,  plot  the 
data  In  the  format  specified  by  the  user. 

d.  Communications  Among  Field  Pattern  Processors 

Figure  1-19  shows  how  data  are  passed  from  one  module  to 
the  next  In  order  to  generate  field  data.  Remember  that  this  figure 
shows  only  the  concept  of  data  flow.  Actual  data  transfer  takes  place 
via  the  checkpoint  file  MODCHK. 

For  a  GTO-only  problem,  the  GTD  module  generates  the 
Incident  field  matrix  which  may  then  be  passed  to  the  OUTPUT  module  for 
plotting  and  printing.  The  MOM  module  has  no  effect  In  this  case  and  may 
be  omitted  If  not  needed  for  another  portion  of  the  problem. 

For  MOM-only  problems,  the  generation  of  the  Green's 
function  matrix  and  Incident  field  matrix  Is  suppressed  unless  Incident 
fields  have  been  requested  by  the  SETINT  command.  In  the  former  case  the 
GTD  module  has  no  effect  and  may  be  omitted.  In  the  latter  case  the  GTD 
module  Is  required.  In  either  case  both  MOM  and  OUTPUT  modules  must  be 
present. 

For  MOM/GTD  hybrid  problems,  all  modules  are  required.  In 
this  case  the  MOM  module  takes  the  Green's  function  matrix  and  incident 
field  matrix  generated  by  the  GTD  module  and,  with  the  solution  currents 
found  In  the  MOM  module  prior  to  the  EFIELD  command,  generates  the  field 
pattern  matrix. 
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6.  Load  Processor  (MOM  Module) 

The  generation  of  electrical  loads  on  the  structure  Is  the 
function  of  the  Load  Processor  illustrated  in  figure  1-20.  Subroutine 
LODDRV  retrieves  the  command  parameters  specified  by  the  user.  The 
geometry  data  are  retrieved;  and,  if  the  current  frequency  is  the  same  as 
the  previous  frequency,  the  data,  if  any,  for  the  previously  generated 
loads  are  retrieved.  If  the  frequency  has  changed  since  the  last  entry 
or  there  are  no  previously  generated  data,  the  load  data  set  Is 
Initialized  to  zero.  The  values  of  the  load  impedance  are  computed  and 
accumulated  into  the  load  data  set.  Upon  completion,  the  load  data  set 
is  stored  and  control  is  returned  to  TSKXQT. 

7.  Direct  Manipulation  Processor  (All  Modules) 

The  direct  manipulation  processor  is  used  to  process  all 
command  strings  encountered  in  the  user's  input  which  do  not  contain  a 
keyword  relating  to  a  specific  GEMACS  task.  Thus,  all  commands  which  may 
have  a  misspelled  keyword  that  would  identify  the  task  will  be  processed 
by  the  direct  manipulation  processor.  This  situation  will  typically  be 
detected  during  execution  because  of  Illegal  operand  and  operator  fields 
present.  Under  normal  conditions,  the  direct  manipulation  processor  will 
scan  the  input  from  the  user's  command  and  determine  the  operations  to  be 
performed.  The  present  capability  includes  only  the  mathematical  opera¬ 
tions  of  multiplication,  division,  addition,  subtraction,  and  exponentia¬ 
tion.  In  addition,  version  3  of  GEMACS  is  limited  to  performing  these 
operations  on  single  dimension  data.  That  Is,  no  matrix  operations  are 
allowed.  The  code  as  constructed  in  the  direct  manipulation  routine, 
subroutine  DMPDRV,  will  recognize  the  need  for  matrix  operation.  The 
software  to  support  the  matrix  operation  has  not  been  Included. 

The  operations  within  subroutine  DMPDRV  are  performed  In  a 
right  to  left  search.  There  is  no  hierarchy  of  operation  Implemented. 
Therefore,  operations  which  require  exponentiation  must  have  the  exponent 
and  the  operand  enclosed  In  parentheses.  When  a  right  parenthesis  is 
found,  the  preceding  operands  and  operator  are  recovered  and  the  opera¬ 
tion  performed.  The  result  of  each  operation  is  stored  In  an  Inter¬ 
mediate  result  until  a  left  parenthesis  Is  encountered.  At  this  time, 
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the  resultant  data  are  identified  as  a  symbol  and  entered  into  the  symbol 
table.  The  next  right  parenthesis  is  then  located,  and  the  process  is 
repeated.  This  continues  until  there  are  no  more  right  parentheses,  at 
which  time  the  remainder  of  the  string  or  input  is  processed  until  an 

equal  sign  is  encountered.  When  an  equal  sign  is  encountered  as  the 

operator,  the  remaining  data  are  stored  under  the  symbol  or  keyword 
specified. 

The  primary  function  of  the  direct  manipulation  processor  is  to 
enable  the  user  to  load  data  into  the  internal  variables  associated  with 
keywords  such  FRQ,  CONO,  and  EPSR.  In  addition,  the  keywords  TIME  and 
NUMFIL  may  be  set  in  a  direct  manipulation  statement.  Using  this  proces¬ 
sor,  such  items  as  the  frequency  or  ground  conductivity  may  be  redefined 
during  the  execution  of  the  code  as  algebraic  functions  of  previous 

definitions  of  the  same  variable  or  as  simple  algebraic  statements.  The 

code  is  also  intended  to  support  the  arithmetic  matrix  operations  and  the 
mixed  scalar/matrix  arithmetic  operations.  However,  as  stated  pre¬ 
viously,  the  code  for  this  has  not  been  implemented. 

8.  Interaction  Processor  (GTD,  MOM,  OUTPUT  Modules) 

The  interaction  processor  is  illustrated  in  figure  1-21.  Its 

purpose  is  to  decode  the  keywords  in  the  INTARG  array  in  order  to  select 
which  physics  processes  will  be  used  in  generating  interaction,  excita¬ 
tion,  and  field  pattern  data. 

The  heart  of  the  process  is  the  ISETTB  array  shown  in  table 

1-2.  It  consists  of  five  columns  of  data  for  each  keyword  which  could  be 
present  in  the  SETINT  command: 

(a)  The  number  of  the  keyword  in  the  KWNAME  array 

(b)  The  row  number  of  the  next  keyword  in  ISETTB 

(c)  The  row  number  in  ISETTB  of  the  next  keyword  to  search  for 

if  the  present  keyword  is  found  in  INTARG 

(d)  An  integer  indicating  the  major  group  of  physics  interac¬ 
tion  for  this  keyword: 

1  =  plate  GTD 

2  =  cylinder  GTD 
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-21.  Interaction  Processor  Function/Subroutine  Interface 


58 


TABLE  1-2.  THE  ISETTB  ARRAY  FOR  SET INT  COMMAND 
INTERACTION  KEYWORDS 


COLUMNS  OF  ISETTB 


ROW 

1 

2 

3 

4 

5 

(NUMBER) 

(KEYWORD  NUMBER) 

(NEXT  KW) 

(STOP  LIST) 

(K) 

(J) 

1 

136  (GTD) 

2 

18 

0 

0 

2 

127  (PL) 

3 

9 

0 

0 

3 

123  (PR) 

4 

4 

1 

2 

4 

126  (RR) 

5 

5 

1 

3 

5 

124  (PD) 

6 

6 

1 

4 

6 

125  (RD) 

7 

7 

1 

5 

7 

143  (PDR) 

8 

8 

1 

6 

8 

127  (PL)* 

9 

9 

1 

7 

9 

130  (CY) 

10 

13 

0 

0 

10 

141  (CS) 

11 

11 

2 

1 

11 

128  (ER) 

12 

12 

2 

2 

12 

129  (ED) 

13 

13 

2 

3 

13 

135  (PC) 

14 

18 

0 

0 

14 

131  (RC) 

15 

15 

3 

1 

15 

132  (CR) 

16 

16 

3 

2 

16 

133  (CD) 

17 

17 

3 

3 

17 

134  (DC) 

18 

18 

3 

4 

18 

137  (MM) 

19 

19 

4 

1 

19 

140  (El) 

20 

22 

0 

0 

20 

138  (EU) 

21 

21 

5 

1 

21 

139  (ES) 

22 

22 

5 

2 

22 

0  — 

0 

0 

0 

0 

*(K,  J)  =  1,7  sets  the  double  diffraction  flag  but  computes  no  new  physics. 
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3  -  p^ate  cyl  ind.tr  Old 

4  =  Mud 

5  =  Incident  fields 

(e)  An  integer  indicating  a  particular  type  of  interaction 
within  a  major  group. 

All  interaction  processing  !s  performed  by  subroutine  SET.  All 
allowable  SETINT  keywords  are  stored  in  array  ISETTB  along  with  their 

(K,J)  interaction  indices.  The  argument  list  is  examined  for  each  of  the 
keywords  in  ISETTB.  When  one  is  found,  the  corresponding  values  of 
K  and  J  are  packed  into  the  next  available  word  of  the  KJINT  array.  J 
occupies  the  first  16  bits  of  the  entry.  K  occupies  the  next  16  bits. 

When  the  search  is  complete,  a  zero  is  loaded  as  the  last  entry  of  KJINT 

to  terminate  the  interaction  list. 

Some  keywords  indicate  more  than  one  (K,J)  interaction.  Pl, 

for  example,  covers  the  (K,J)  cases  of  (1,2)  (1,3)  (1,4)  (1,5)  (1,6)  and 
(1,7).  When  a  keyword  such  as  PL  is  encountered,  all  associated  inter¬ 
actions  are  placed  sequentially  in  KJINT.  This  is  accomplished  by  use  of 
the  STOP  LIST  column  of  ISETTB.  When  a  keyword  is  found  that  matches  an 
ISETTB  keyword,  the  (K,J)  interaction  indices  of  all  keywords  up  to,  but 
not  including,  the  keyword  pointed  to  by  the  STOP  LIST  index  are  placed 
in  KJINT.  (The  (K,J)  =  (0,0)  case  is  ignored.)  For  the  PL  keyword,  the 
STOP  LIST  index  is  9.  Therefore,  (K,J)  interactions  in  ISETTB  rows  2,  3, 
4,  5,  6,  7  and  8  are  placed  in  KJINT,  and  the  keyword  search  continues 
for  the  keyword  in  row  9  (CV).  This  algorithm  ensures  that  the  KJINT 
list  will  always  be  in  numerical  order  and  that  no  duplication  will 
occur. 

The  NEXT  KW  column  of  ISETTB  makes  it  easy  to  add  additiona1 
interactions  to  the  SETINT  command.  For  example,  suppose  the  interaction 
of  (K,J)  =  (1,8)  were  to  be  added  with  the  keyword  "R3"  (triple  reflet 
tion).  The  new  keyword  would  be  aaoed  in  row  22; 

22:  keyword  #  (R3)  5518 

23:  0  0  0  C  0 

The  next  keyword  entry  in  row  4  would  become  22,  as  shown: 

4:  126(RP)  22  22  1  3 
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The  default  interaction  set  is  MM:  (K,J)  =  (4,1)  for  method  of 
moments  Interactions.  This  is  initialized  in  BLOCK  DATA  for  the  INPUT 
module  and  by  subroutine  STRTUP  for  subsequent  modules. 

E.  MODULE  TERMINATION  PROCESSOR 

After  completion  of  the  tasks  associated  with  the  current  module, 
GEMACS  calls  subroutine  STATFN  to  output  the  accumulated  timing  informa¬ 
tion  for  the  execution  and  to  write  the  end  of  module  checkpoint.  The 
subroutine  names  listed  are  in  order  of  decreasing  execution  time.  The 
additional  information  printed  out  is  the  percent  of  the  total  accounted 
time  for  each  subroutine  and  the  number  of  times  the  subroutine  was 
called.  The  total  accounted  time  is  printed  out  for  the  user's  conve¬ 
nience.  This  time  may  be  somewhat  less  than  the  actual  run  time  noted  in 
the  user's  day  file.  There  are  two  reasons  for  the  discrepancy:  first, 
not  all  subroutines  in  the  GEMACS  code  include  the  necessary  coding  to 
accumulate  the  timing  information;  and  second,  the  timing  algorithm  on 
the  host  computer  may  be  somewhat  different  for  the  run  and  accounting 
purposes.  Those  subroutines  in  GEMACS  which  have  only  one  or  two 
executable  FORTRAN  statements  are  not  timed  because  the  accumulation  of 
the  timing  information  would  generally  take  longer  than  the  execution  of 
the  subroutine  itself. 

In  order  to  make  use  of  the  timing  feature,  the  host  computer  must 
have  a  FORTRAN  callable  library  subroutine  to  return  the  current  CPU 
time.  This  library  call  occurs  in  GEMACS  subroutine  TICHEK.  The  library 
subroutine  must  return  the  argument  T  in  seconds.  If  there  is  no  libr-^  v 
subroutine  available  to  obtain  the  desired  information,  the  code  av 
ciated  with  subroutine  TICHEK  should  be  eliminated  and  repiared  with  a 
simple  RETURN  and  ENO  statement. 

Note,  if  there  is  no  library  subroutine  to  return  the  current  CPU 
time,  the  checkpoint  feature  can  not  be  used  with  a  time  increment  CP1NI 
specified.  In  addition,  the  keyword  TIME  can  not  be  set  in  the  user's 
input  since  the  current  elapsed  CPU  time  must  be  computable  by  GEMACS  if 
this  increment  is  specified. 
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The  module  termination  processor  also  directs  that  a  checkpoint  be 
written  to  file  MODCHK.  This  end-of -module  checkpoint  is  Identical  to  a 
timed  or  command  checkpoint,  and  it  is  used  in  order  to  Initialize  the 
next  module  to  be  executed.  In  STATFN,  the  MODCHK  file  is  rewound  first 
to  ensure  that  the  end-of-module  checkpoint  is  the  only  checkpoint  on  the 
file.  This,  of  course,  destroys  any  other  checkpoints  on  the  file.  In 
most  cases,  a  user  would  not  want  to  retain  them  once  the  module  termi¬ 
nated.  Should  the  user  wish  to  keep  all  intermediate  checkpoints,  he  may 
do  this  by  specifying  an  alternate  file  identifier  on  the  CHKPNT  command 
(IOCKPT^MODCHK)  and  requesting  the  NR  (no  rewind)  option  on  the  same 
command.  Subroutine  WRTCHK  writes  the  actual  checkpoint  in  the  manner 
discussed  in  section  I.B.3. 
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CHAPTER  II 

SUBROUTINE  DOCUMENTATION 


A.  INTRODUCTION 

The  software  details  of  the  subroutines  comprising  the  four  modules 
of  version  3  of  the  GEMACS  code  are  given  in  this  chapter.  Common  blocks 
and  common  block  variable  definitions  are  given  in  chapter  III. 

B.  CONVENTIONS 

There  are  several  conventions  of  units  and  coordinate  systems  used 
throughout  the  code.  These  are  discussed  below  to  avoid  needless  repeti¬ 
tion  throughout  the  software  documentation. 

1.  Units 

With  the  exception  of  the  GTD  physics  routines,  GEMACS  employs 
the  following  system  of  units: 

Length  -  meters 

Time  -  minutes 

Frequency  -  megahertz 

Electric  field  -  volts/meter 

Magnetic  field  -  amps/meter 

Input  impedance  -  ohms 

Interaction  impedance  -  ohms/meter 

Lumped  load  -  ohms/meter 

load  power  -  watts 

Antenna  voltage  -  volts 

Current  -  amperes 

Arr )ff  oppressed  ■>'  radians  inr  ra'oul.  tiers  an>1  in  degree?  for  >piji 
and  outpu: .  Separate  variables  are  used  for  radian  and  degree  units  and 
are  indicated  as  such  in  the  documentation. 
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With  the  addition  of  GTD  physics  to  GEMACS  It  was  found  that 
GTO  calculations  could  be  made  more  rapidly  If  all  dimensions  were 
normalized  to  wavelengths.  Hence,  In  GTD  routines  we  have: 

Length  -  wavelengths 

Frequency  -  not  used 

Time  -  not  used 

Wavelength  -  meters 

Electric  field  -  volts/wavelength 

Magnetic  field  -  amps/wavelength 

The  units  conversion  Is  made  In  subroutine  GTDDRV  (see  figure  II-l). 
GTDDRV  takes  the  standard  GEMACS  units,  converts  them  to  GTD  units,  calls 
the  GTD  physics  routines  for  fields,  and  converts  field  units  back  to 
standard  GEMACS  units  prior  to  returning  control  to  ZGTDRV. 

2.  Passive  Sign  Convention 

All  loads  and  Impedances  are  assumed  to  be  passive.  That  Is, 
even  though  a  wire  segment  may  radiate  energy  due  to  its  excitation,  the 
element  Itself  Is  absorbing  energy  from  its  source.  This  definition 
Implies  the  sign  convention  shown  in  figure  1 1-2 .  With  this  convention 
we  may  write 


X  .  +X.  <"-» 

An  understanding  of  this  definition  is  Important  where  loads 
are  attached  to  wire  segments.  Consider  the  example  In  figure  I 1-3.  We 
know  that 


and 


VW  =  Vw 


vL  =  zLiL  ♦  vA. 


(H-2) 


When  the  load  Is  attached  we  know  that  =  V^,  but  1^  =  -Iw  because  of 
the  passive  sign  convention. 
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Figure  II-2. 


The  Passive  Sign  Convention 


DELTAGAP 
WIRE  SEGMENT 


Figure  1 1 -3 .  Attaching  a  Load  to  a  Wire  Segment 


When  one  forms  the  MOM  matrix  problem  he  obtains 


[z]  [I]  -  [-V] 


But  our [v] is  represented  byp^l^  +  V^j= 


-  H1 


+v. 


Hence,  we  obtain 


(II  3) 


[z-24MsN- 

It  is  the  passive  sign  convention  that  is  responsible  for  the  negative 
sign  in  ( 1 1 -4) . 

3.  Coordinate  Systems 

While  one  global  coordinate  system  is  used  throughout  the 
majority  of  GEMACS,  several  auxiliary  systems  are  used  to  ease  the  compu¬ 
tation  of  GTD  interactions.  The  principal  ones  are  discussed  below, 
a .  GTD  Reference  Coordinate  System  (RCS) 

The  reference  coordinate  system  is  the  fundamental  system 
for  GTO  calculations.  The  system  geometry  is  defined  and  stored  in  the 
reference  coordinate  system.  Many  of  the  calculations  carried  out  are 
done  in  the  reference  coordinate  system.  Each  of  the  other  coordinate 
systems  is  defined  in  terms  of  this  system. 

When  only  plates  are  present  in  the  GTD  geometry,  the  RCS 
is  identical  to  the  global  coordinate  system.  The  presence  of  a  cylinder 
causes  tn>!  RCS  to  be  rotated  so  that  its  z-axis  lies  along  the  axis  of 
the  cyii'’rhr  and  the  x-  and  y-axes  correspond  to  the  najor  and  minor  axes 
of  ine  Minder  cross  section,  respectively.  The  origin  of  the  RCS  is 
translated  to  the  center  of  the  -_vl  i»-.*«?»  .  See  Ti-jv®-  .  ar  4  ?  • 

'  jbrou>;i'i‘:  ilAxIS  wrir.^jj.., 

n  Source  coordinate  System 

The  source  coordinate  system  is  the  system  in  which  the 
orientation  of  the  source  is  defined.  There  is  one  such  system  for  each 
source,  although  only  one  appears  in  the  computations  at  a  given  time. 
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Each  time  another  source  is  used  the  source  coordinate  system  is 
redefined. 


A  one-dimensional  source,  such  as  a  dipole  or  wire 

segment,  lies  along  the  z-axis  of  the  source  coordinate  system.  A  patch 
lies  in  the  (x-y)  plane.  Spherical  wave  sources  are  centered  in  the 
source  coordinate  system,  and  0  and  $  field  polarizations  correspond  to 
the  0  and  $  directions  in  that  system.  The  same  is  true  for  plane  wave 
sources.  The  software  description  for  subroutine  SOURCE  has  figures 
which  illustrate  these  coordinate  systems. 

c .  Source  Image  Coordinate  System 

In  many  cases  the  code  uses  image  theory  in  computing 

fields  reflected  from  a  perfectly  conducting  plate  or  cylinder  end  cap. 
This  involves  computing  an  image  source  from  which  the  reflected  rays 
will  appear  to  originate  (see  section  on  subroutine  REFPLA).  Assuming 
the  source  dimensions  are  known,  the  image  source  may  be  determined  by 
computing  the  source  image  location  using  subroutine  IMAGE  and  the  source 
image  orientation  using  subroutine  IMDIR  for  a  plate  and  IMCDIR  for  an 
end  cap.  As  the  source  location  and  orientation  are  specified  using  a 

source  coordinate  system,  the  “source  image  coordinate  system"  is  used  to 

define  the  image  source.  The  location  of  the  source  image  is  the  origin 
of  the  source  image  coordinate  system,  and  the  axes  are  defined  by  unit 
vectors  in  the  same  manner  as  for  the  source  coordinate  system. 

d .  Edge  -  Fixed  Coordinate  System 

The  code  generates  an  edge  -  fixed  coordinate  system  for 
each  edge  on  every  plate.  The  three  rectangular  coordinate  system  axes 
for  each  edge  are  positioned  as  follows: 

(a)  In  the  plate  plane  and  normal  to  the  edge  (the  edge  binormal) 

(b)  Normal  to  the  plate 

(c)  Along  the  plate  edge. 

Figure  1  of  subroutine  OIFPLT  illustrates  the  placement  of  the  vectors. 

The  most  significant  use  of  thr  edge-fixed  system  .s  in 
determining  edge  diffractions.  Incident  and  diffracted  ray  propagation 
angles  along  with  polarization  vectors  ire  calculated  by  taking  dot  and 
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cross  products  of  edge-fixed  unit  vectors  and  the  ray  propagation  and 
polarization  unit  vectors.  Edge-fixed  unit  vectors  are  also  used  in 
calculating  geometry  for  intersecting  plates,  as  well  as  checking  to  see 
if  plates  are  flat.  The  edge-fixed  vectors  are  calculated  in  section  2 
of  subroutine  GEOM.  Also,  note  that  a  similar  set  of  vectors  is  used  in 
calculating  the  diffracted  fields  from  the  rims  of  the  cylinder  end  caps, 
e.  End  Cap  Diffraction  Point  Coordinate  System 

The  code  defines  a  special  coordinate  system  at  the  point 
of  end  cap  diffraction  so  that  the  incident  field  may  be  decomposed  into 
parallel  (end  cap  diffraction  point  coordinate  system  z-axis)  and  perpen¬ 
dicular  components.  The  origin  of  the  system  is  the  point  of  diffrac¬ 
tion.  The  z-axis  is  aligned  with  the  end  cap  rim  tangent.  The  x-axis  is 
perpendicular  to  the  rim  tangent  in  the  plane  of  the  end  cap.  The  y-axis 

/>  A 

is  formed  by  z  x  x.  Figure  1  of  subroutine  ENDIF  illustrates  this  coor¬ 
dinate  system. 

C.  SOFTWARE  DESCRIPTIONS 


The  description  of  each  subroutine  within  GEMACS  is  given  in  this 
section.  The  subroutines  are  listed  alphabetically  with  the  exception  of 
the  main  program  and  the  block  data  subroutine,  which  are  listed  first. 
Each  description  consists  of  the  name  of  the  subroutine,  the  module(s)  in 
which  it  is  located,  its  purpose,  a  brief  summary  of  its  operation,  the 
internal  and  external  variables  associated  with  the  subroutine,  the  names 
of  the  subroutines  calling  that  subroutine,  and  the  names  of  the 
subroutines  it  calls.  A  flow  diagram  completes  the  description. 
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1.  NAME:  GEMACS  (INPUT) 

2.  PURPOSE:  MAIN  Driver  Program 

3.  METHOD:  GEMACS  directs  execution  through  Input  processing  (INPDRV), 
task  execution  (TSKXQT)  and  run  termination  (STATFN)  processors  in 
that  sequence.  If  the  input  processor  determines  that  the  job  Is  a 
restart-from-checkpoint  job,  task  execution  is  bypassed  If  restart 
was  specified  for  another  module. 

4.  INTERNAL  VARIABLES: 


VARIABLE 
I  DAY 
INDKWN 
INDX 
ITIME 

KWMXP1 

LSTSYS(20) 

MODCOD 

MODNAM 

NAMMOD 

NPRPRT 

NXT 

NXTTMP 

N2 

RSTART 

TIME 


DEFINITION 

Date  in  mm/dd/yy  format  (A6,  A2) 

Keyword  Index  to  the  NCODES  array 
Index  to  the  ITEMP  array 

Time  of  day  In  hh.  mm  format  (24-hour 
clock) 

KWMAX  plus  1 

Contains  pointer  to  KWNAME  array  for 
module-directed  restart 

Pointer  to  module  name  In  KWNAME  array 

Module  name  variable 

Hollerith  (A6)  name  of  this  module 

Number  of  keywords  per  line  of  output 

Pointer  to  next  keyword 

Pointer  to  next  keyword  In  ITEMP 

Minimum  number  of  keywords 

Restart  flag 

Equivalenced  to  ITIME 
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GEMACS 


(INPUT) 


5.  I/O  VARIABLES: 


A.  INPUT 

LOCATION 

ISOFF 

/ADEBUG/ 

ISON 

/ADEBUG/ 

KWMAX 

/PARTAB/ 

KWNAME 

/PARTAB/ 

NCOOES 

/PARTAB/ 

NOGOFG 

/SCNPAR/ 

B.  OUTPUT:  None 

CALLING  ROUTINES: 

Not  applicable 

7.  CALLED  ROUTINES: 
ASSIGN 
CONVRT 
INPDRV 
SHELL 
STATFN 
SYSRTN 
TSKXQT 
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MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUREAU  OF  STANDARDS  T 963  A 


GEMACS 


(INPUT) 


NAME:  6EMACS 


(GTD,  MOM,  OUTPUT) 


?.  PURPOSE:  Main  driver  program 

3.  METHOD:  GEMACS  directs  execution  through  the  module  start-up 
(STRTUP),  task  execution  (TSKXQT)  and  run  termination  (STATFN) 
processors  In  that  sequence.  If  (1)  STRTUP  determines  that  the  job 
Is  a  restart-from-checkpolnt  job,  (2)  the  restart  flag  RSTART  Is  on, 
and  (3)  restart  was  specified  for  another  module,  STRTUP  terminates 
module  execution. 

1.  INTERNAL  VARIABLES: 

VARIABLE 

IDAY 

ITIME 

MODNAM 
NAMMOD 

TIME 

5.  I/O  VARIABLES: 

A.  INPUT 
ISOFF 
ISON 
NOGOFG 

B.  OUTPUT:  None. 

5.  CALLING  ROUTINES:  Not  applicable 
7.  CALLED  ROUTINES: 

ASSIGN 
STATFN 
STRTUP 
SYSRTN 
TSKYOT 


DEFINITION 

Date  In  mm/dd/yy  format  (A6,  A2) 

Time  of  day  in  hh.  mm  format  (24-hour 
clock) 

Module  name  variable 

Hollerith  (A6)  name  of  this  module: 
6HGTD  ,  6HM0M  ,  or  6H0UTPUT 

Equlvalenced  to  IT ItT 

LOCATION 

/ADEBUG/ 

/ADEBUG/ 

/SCNPAR/ 


1.  NAME:  BLOCK  DATA  BLKOAT  (STD,  INPUT,  MOM,  OUTPUT) 

2.  PURPOSE:  Load  data  Into  named  conroon  areas. 

3.  METHOD:  Not  applicable. 

4.  INTERNAL  VARIABLES:  See  common  block  glossary,  chapter  III. 

5.  I/O  VARIABLES:  Not  applicable. 

6.  CALLING  ROUTINES:  Not  applicable. 

7.  CALLEO  ROUTINES:  '  Not  applicable. 
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1.  NAME:  ASSIGN  (GTD,  INPUT ,  MOM,  OUTPUT) 

2.  PURPOSE:  To  enter  the  called  subroutine  names  Into  the  subroutine 
name  table. 

3.  METHOD:  After  each  subroutine  Is  called,  ASSIGN  Is  called  to  Insert 
the  subroutine  name  In  the  NRNAMS  table. 

4.  INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 

NAMSB  Subroutine  name 

NUMS8  Assigned  subroutine  number 

NUMSUB  Subroutine  counter 

5.  I/O  VARIABLES: 

A.  INPUT  LOCATION 

NAMSB  F.P. 

B.  OUTPUT  LOCATION 

NUMSB  F.P. 

6.  CALLING  ROUTINES:  All  major  subroutines. 

7.  CALLED  ROUTINES:  None. 
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1.  NAME:  BABS  (GTD) 

2.  PURPOSE:  This  function  computes  the  absolute  value  of  a  complex 
arguaent.  It  Is  similar  to  CABS,  except  It  avoids  run  tlae  errors 
when  the  real  part  and  laaglnary  part  of  the  arguaent  are  zero. 

3.  METHOD:  The  system  function  CABS  Is  used  unless  the  absolute  value 
of  the  real  part  and  the  Imaginary  part  of  the  argument  are  close  to 
zero.  In  which  case  a  very  small  value  Is  returned. 

4.  INTERNAL  VARIABLES: 

VARIABLE 
BABS 
X 
Y 
Z 

5.  I/O  VARIABLES: 

A.  INPUT 
Z 

B.  OUTPUT 
BABS 

6.  CALLING  ROUTINES: 

DFPTCL 
DICOEF 
POLYRT 

7.  CALLED  ROUTINE:  None. 


DEFINITION 

Absolute  value  of  the  complex  argument 
Absolute  value  of  the  real  part  of  Z 
Absolute  value  of  the  Imaginary  part  of  Z 
The  complex  argument 

LOCATION 

F.P. 

LOCATION 

FUNCTION 
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TAKE  THE  COMPLEX 
ABSOLUTE  VALUE  OF 
THE  ARGUMENT  USING 
CABS 


1.  NAME:  8ACSU8 


(MOM) 


2.  PURPOSE:  Execute  the  command  BACSUB  A  *  X  *  B  by  setting  up  the 
data  to  solve  a  set  of  simultaneous  linear  equations  after  matrix  A 
has  been  decomposed. 

3.  METHOD:  Retrieve  command  arguments,  determine  core  available,  load 
appropriate  parts  of  the  decomposed  matrix  and  right-hand  side  Into 
common  area  TEMP  and  call  appropriate  solution  algorithm. 

4.  INTERNAL  VARIABLES: 


VARIABLE 

IBANO 

IFWD 

I LOWER 

INOXA 

INOXL 

INOXU 

I0RDER 

IUPPER 

LOCA 

LOCAIJ 

LOCL 

LOCU 

LSTNAM 


DEFINITION 

Flag  set  to  1  if  matrix  Is  banded 

Flag  set  to  0  for  forward  elimination  and 
to  1  for  back  substitution 

Flag  set  to  1  to  indicate  a  lower  trian¬ 
gular  matrix 

Location  of  symbol  A  in  NDATBL 

Location  of  lower  triangular  matrix  decom¬ 
posed  from  A  In  NDATBL 

Location  of  upper  triangular  matrix  decom¬ 
posed  from  A  In  NDATBL 

Flag  set  to  1  for  a  transposed  matrix 

Flag  set  to  1  for  the  upper  triangular 

matrix 

Logical  unit  number  for  symbol  A 

Location  of  first  word  for  symbol  A 

Logical  unit  number  for  lower  triangular 

matrix 

Logical  unit  number  of  upper  triangular 

matrix 

Name  of  the  last  symbol  used 


T 
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BACSUB 


(MOM) 


NAMEA 

Symbolic  name  of  decomposed  matrix 

NAMGET 

Temporary  location  of  upper  and  lower 
matrix  names 

NAMLWR 

Symbolic  name  of  lower  triangular  matrix 

NAMUPR 

Symbolic  name  of  upper  triangular  matrix 

NBITA 

Attribute  word  for  symbol  A 

NBITS 

Attribute  word  for  a  data  set 

NCOLL 

Number  of  columns  In  lower  triangular 
matrix 

NCOLU 

Number  of  columns  In  upper  triangular 
matrix 

NMl 

Submatrix  number  minus  one 

NPRELM 

Number  of  words  per  element 

NROWL 

Number  or  rows  In  lower  triangular  matrix 

NROWS 

Number  of  row  elements  In  core 

NROWU 

Number  of  rows  In  upper  triangular  matrix 

NSYMBL 

Number  of  entries  In  NDATBL  array 

NTCELL 

Number  of  TEMP  locations  available  for 
matrix  storage 

NTLEFT 

Number  of  TEMP  cells  remaining  to  be  used 

NUMCOL 

Number  of  columns  In  symbol  A 

NUMMAT 

Number  of  submatrices  In  symbol  A 

NUMROW 

Number  of  rows  In  symbol  A 

NXTCOL 

Pointer  to  next  column  to  be  read  Into  TEMP 

N1 

Column  Index  of  first  column  In  core 

N2 

Column  Index  of  last  column  in  core 

RHS 

Right-hand  side  solution 

BACSUB  (MOM) 


5.  I/O  VARIABLES: 


A.  INPUT 

LOCATION 

A 

F.P. 

OBGPRT 

/ADEBUG/ 

INDXA 

F.P. 

NOATBL 

/PARTAB/ 

NM1 

F.P. 

NPOATA 

/PARTAB/ 

NTCELL 

F.P. 

NUMMAT 

F.P. 

RHS 

F.P. 

B.  OUTPUT 

LOCATION 

RHS 

F.P. 

CALLING  ROUTINES: 

SOLDRV 

CALLED  ROUTINES: 

ASSIGN 

IBITCK 

CONVRT 

SOLVIC 

ERROR 

SOLVOC 

GETSYM 

STATIN 

STATOT 

WLKBCK 
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NAME:  BANDIT  (MOM) 

PURPOSE:  Execute  the  command:  B  «  BAND  (A),  BNDW  -  N 

METHOD:  Extract  the  N  elements  above  and  below  the  diagonal  element 
In  each  column  of  A  and  store  the  result  as  symbol  B. 


INTERNAL  VARIABLES: 

VARIABLE 

BNDMAG 

COLMAG 

FRSTIM 

I  BAND 

INI 

IN2 

IN2BND 

IRONS 

IR0W1 

MORE 

NAME1 

NAME  2 

NBIT1 

NBIT2 

NCN 

NCOLS 

NPRBNO 

NPRCOL 


DEFINITION 

Magnitude  of  the  banded  elements  extracted 

Magnitude  of  all  column  elements 

Logical  TRUE  If  first  record  of  submatrix 

Number  of  elements  above  and  below  diagonal 
element  to  be  kept  In  the  band 

Location  of  A  In  the  symbol  table 

Location  of  the  B  In  the  symbol  table 

Banded  attribute  for  B 

Number  of  rows  A  will  have 

Location  of  row  1  of  submatrix  N  In  B 

Exponent  of  2  if  complex  or  double 
precision 

Symbolic  name  of  A 

Symbolic  name  of  B 

Attribute  word  for  A 

Attribute  word  for  B 

Loop  Index 

Number  of  columns  In  B 
Number  of  words  per  band 
Number  of  words  per  column 
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NPRELM 

BANDIT  (MOM) 

Number  of  words  per  element 

NROWS 

Number  of  rows  In  B 

NUHMAT 

Number  of  submatrices 

N1 

Temporary  location  for  the 

name  of  A 

N2 

Temporary  location  for  the 

name  of  B 

RATIO 

Ratio  of  BNDMAG  to  COLMAG 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

INTARG 

/ARGCOM/ 

I  PASS 

/ARGCOM/ 

NDATBL 

/PARTAB/ 

B.  OUTPUT 

LOCATION 

NDATBL 

/PARTAB/ 

CALLING  ROUTINES: 

TSKXQT 

CALLED  ROUTINES: 

ASSIGN 

IBITCK 

SYMDEF 

CONVRT 

PUTSYM 

SYMUPD 

ERROR 

STATIN 

WLKBCK 

GETSYM 

STATOT 

I 


1.  NAME:  BEXP  (GTD) 

2.  PURPOSE:  To  determine  the  exponential  of  a  complex  argument.  It  Is 
similar  to  the  library  function  CEXP,  but  It  avoids  the  problem  of 
the  argument  having  a  large  Imaginary  part. 

3.  METHOD:  The  argument  Is  separated  Into  Its  real  and  Imaginary 
parts.  The  Imaginary  part  Is  reduced  to  an  equivalent  angle  between 
zero  and  2x,  Including  zero.  Then  the  argument  Is  put  back  together 
Into  a  complex  number  and  the  CEXP  function  Is  performed  on  It. 

4.  INTERNAL  VARIABLES: 

VARIABLE 
ARG 
ARGI 
ARGII 

ARGR 
BEXP 
CJ 
PI 

5.  I/O  VARIABLES: 


A. 

INPUT 

LOCATION 

ARG 

F.P. 

CJ 

/COMP/ 

PI 

/PIS/ 

B. 

OUTPUT 

LOCATION 

DEFINITION 

Exponential  argument 

Imaginary  part  of  argument 

Imaginary  part  of  argument  reduced  to  a 
number  between  or  equal  to  0  and  2n 

Real  part  of  argument 

exp (ARG)  =  exp (ARGR  +  j ARGI I) 

Complex  number  (0.,  1.)  *  n/T 

if 


BEXP 


FUNCTION 
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BEXP  (6T0) 


6.  CALLING  ROUTINES: 
OICOEF 

DIFPLT 

DPI 

DPLRCL 

OPLRPL 

OZCOEF 

ENOIF 

FFCT 

FKY 

INCFLO 

PFUN 

QFUN 

RCLOPL 

RCLRPL 

REFCAP 

REFCYL 

REFPLA 

RPLOPL 

RPLRCL 

RPLRPL 

RPLSCL 

SCLRPL 

SCTCYL 

7.  CALLED  ROUTINE:  None. 
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SEPARATE  INTO  REAL  & 
IMAGINARY  PARTS 


1.  NAME:  BMIRHS  (MOM) 

2.  PURPOSE:  To  accumulate  the  complex  matrix  sum  and  product  R  •  R-A*S 

3.  METHOD:  The  matrix  operation  R  *  R-A*S  may  be  done  accumulatively 
when  A  will  not  fit  In  core.  R  and  S  are  column  vectors  and  A  Is  a 
matrix  which  has  had  a  band  of  bandwidth  M  extracted:  The  product 
of  A*S  may  be  written  as: 


n2 

CK  "  rK  -  *  ankSn 

n=n^ 

where  nj  and  n2  are  the  columns  of  A  In  core. 

4.  INTERNAL  VARIABLES: 


VARIABLE 

DEFINITION 

A 

Matrix  argument 

J 

First  column  of  A  In  core 

JM 

J-l 

K 

Actual  column  Index  of  A 

KRL 

First  row  element  of  A  after  band 

KRU 

Last  row  element  of  A  before  band 

M 

Bandwidth 

MP 

M  +  1 

NC 

Number  of  columns  of  A  In  core 

NCM 

First  element  of  SOL  after  band 

NR 

Number  of  rows  In  SOL,  RHS,  and  A 

RHS 

Matrix  argument 

RHSK 

Temporary  storage 

SOL 

Solution  currents 
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BMIRHS 


(HOH) 


5.  I/O  VARIABLES: 


A.  INPUT 

LOCATION 

A 

F.P. 

J 

F.P. 

N 

F.P. 

NC 

F.P. 

NR 

F.P. 

RHS 

F.P. 

SOL 

F.P. 

B.  OUTPUT 

LOCATION 

RHS 

F.P. 

CALLING  ROUTINES: 

SOLORV 

7.  CALLED  ROUTINES: 
ASSIGN 
STATIN 
STATOT 
WLKBCK 
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1.  NAME:  BTAN2  (GTD) 

2.  PURPOSE:  This  function  computes  the  two  argument  arctangent 
function.  It  Is  similar  to  ATAN2,  except  It  avoids  run  time  errors 
when  the  second  argument  Is  zero. 

3.  METHOD:  The  system  function  ATAN2(Y,X)  Is  used  to  return  the  angle 
In  radians,  whose  sine  Is  Y  and  cosine  Is  X  unless  the  second  argu¬ 
ment  or  both  of  the  arguments  are  zero.  If  the  second  argument  Is 
zero,  either  ir/2  or  -ir/2  Is  returned  depending  on  the  sign  of  the 
first  argument.  If  both  arguments  are  zero,  a  zero  value  Is 
returned . 

4.  INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 


BTAN2 

X 


5.  I/O  VARIABLES: 
A.  INPUT 
PI 
X 


Two  argument  arctangent 

Second  argument,  which  Is  the  cosine  of  the 
angle  to  be  computed 

First  argument,  which  Is  the  sine  of  the 
angle  to  be  computed 


LOCATION 

/PIS/ 

F.P. 


Y 


F.P. 


ZERO  /ADEBUG/ 

B.  OUTPUT  LOCATION 

BTAN2  FUNCTION 


6.  CALLING  ROUTINES: 
CAPINT 
CYLINT 
DFPTWD 
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DIFPLT 


DPLRCL 

DPLRPL 

END  IF 

GEOM 

GEOMPC 

GTODRV 

NFD 

PLAINT 

RCLDPL 

RCLRPL 

REFBP 

REFCYL 

RFDFIN 

RFDFPT 

RFPTCL 

RPLDPL 

RPLRCL 

RPLSCL 

SCLRPL 

SCTCYL 

TANG 

XYZFLD 

CALLED  ROUTINES: 


None. 
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(STD) 


1.  NAME:  BUBBLE  (INPUT) 

2.  PURPOSE:  BUBBLE  does  a  bubble  sort  on  the  geometry  data  to  assure 

that  the  wire  segments  and  then  the  patch  segments  are  sorted  In 

ascending  order  in  the  SEGMNT  array. 

3.  METHOD:  This  subroutine  makes  two  sorts.  First,  it  sorts  the  wire 

segments.  If  any  wire  segment  after  the  ith  location  In  SEGMNT  is 

found  to  have  a  smaller  segment  number,  it  and  the  i^h  location  are 
interchanged.  After  all  wire  segments  have  been  sorted,  the  process 
is  repeated  in  order  to  sort  all  the  patch  segments.  Note  that  all 
wire  segments  always  precede  the  patch  segments. 


INTERNAL  VARIABLES: 

VARIABLE 

DEFINITION 

I 

Counter  for  the  data  blocks 

IBLK 

Saved  value  of  data  block  being  filled 

ILIM 

Maximum  number  of  segments  in  a  data  block 

INLl  , 

Outer  loop  index  to  SEGTBL  array 

IS 

Segment  number 

ISGTBL 

Equivalenced  to  SEGTBL 

ITAG 

Tag  number  for  segment 

IWPFG 

Flag  indicating  patch  sort 

J 

Segment  number  sought 

LIMINR 

Maximum  number  of  segments  in  a 
for  Inner  loop 

data 

block 

l'M. 

Maximum  number  of  segments  In  a 
for  outer  loop 

data 

block 

MAXBLK 

Maximum  number  of  data  blocks 

MAXSEG 

Maximum  number  of  segments  in 
block 

each 

data 

nDXBlk 

Data  block  in  current  use 

NtW.  .  -• 

segment  number 
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BUBBLE 


(INPUT) 


NNOEX 

Inner  loop  Index  to  SEGTBL  array 

N0G0F6 

No  go  flag 

NPATCH 

Number  of  patches 

NPRSEG 

Number  of  data  Items  per  segment 

NS 

Counter  of  the  number  of  segments 

NUMSEG 

The  total  number  of  wire  segments 
patches 

NWIRE 

Number  of  wire  segments 

SAVDAT 

Temporary  location  to  move  segment  data 

SEGTBL 

Array  of  segment  data 

TEMP 

Temporary  storage  array 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

ISGTBL 

/SEGMNT/ 

MAXBLK 

/SEGMNT/ 

MAXSEG 

/SEGMNT/ 

NOXBLK 

/SEGMNT/ 

NPATCH 

/SEGMNT/ 

NPRSEG 

/SEGMNT/ 

NUMSEG 

/SEGMNT/ 

NWIRE 

/SEGMNT/ 

SEGTBL 

/SEGMNT/ 

B.  OUTPUT 

LOCATION 

NOGOFG 

/ADEBUG/ 

SEGTBL 

/SEGMNT/ 
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BUBBLE 


(INPUT) 


6.  CALLING  ROUTINE: 
GEOORV 

7.  CALLED  ROUTINES: 
ASSIGN 

GETSEG 

STATIN 

STATOT 

WLKBCK 
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I 


I 


E 
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BUBBLE 


(INPUT) 


Page  2  of  3 


BUBBLE 


(INPUT) 


1.  NAME:  CABC  (MOM) 

2.  PURPOSE:  To  compute  the  coefficients  In  the  sinusoidal  basis  func¬ 
tions  for  the  current  on  each  wire  segment,  given  current  at  the 
center  of  each  segment.  For  patches ,  the  x,  y,  and  z  components  of 
the  surface  current  are  determined  assuming  a  pulse  expansion 
function.  These  coefficients  are  needed  for  calculation  of  fields 
produced  by  the  current  distribution. 

3.  METHOD:  The  current  basis  function  for  wire  segment  1  is 


I.(s)  =  Ai  +  Bi  sin  k ( s  -8.)  +  C.  cos  k(s  -s^ 


where  s  represents  path  length  along  the  segment  and  s  *  s.  at  the 
center  of  segment  1.  If  ft  and  k  are  the  segments  before  And  after 
segment  1,  relative  to  the  current  reference  direction  of  segment  1, 
the  continuity  conditions 

W  =  W  ' 

W  =  W  3  rk 
W  s 

yield  the  coefficients 

Aj  «  1/A  Jlj  sin  k  6^  -I.  sin  k  (6^  +  6^k)  +  I)c  ®^n  *  J 

B.  =  1/A  £  I  ^  ( cos  k  6ik  -1)  +  I^cos  k  -cos  k  Aifc) 

+  ‘k<1  -cos  k  {ii>] 

Ci  *  -1/A  [lt  sin  k  6.^  -I.  (sin  k  6it  +  sin  k  6ik>  ♦  Ik  sin  k  <5 
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CABC 


(MOM) 


A  -  sin  k  +  sin  k  Si|{  -sin  k  +  6jk) 


where 


k  -  2*/X 


At  a  multiple  junction  segment  i  or  k  is  replaced  by  several  seg¬ 
ments  connected  to  the  junction.  The  corresponding  6  Is  then  the 
average  of  the  distance  from  center  of  segment  1  to  the  center  of 
each  of  the  other  segments,  and  Ij,  or  I|<  Is  replaced  by  the 
algebraic  sum  of  currents  In  the  connected  segments. 

For  each  patch  element,  a  pulse  expansion  function  Is  assumed. 
For  each  patch,  two  currents  Jj  and  J?  are  determined.  The  spatial 
components  of  the  surface  current  are  found  from: 


J 


J 


J 


z 


y 


z 


J1  Tlx  +  J2  T2x 


J1  Tly  +  J2  T2y 


J1  Tlz  +  J2  T2z 


where  and  f 2  are  the  orthogonal  unit  vectors  which  define  the 
patch  orientation  In  space. 


4.  INTERNAL  VARIABLES: 
VARIABLE 
AX 
BX 

CELLO 


DEFINITION 

A^  for  wires,  Jx  for  patches 
B^  for  wires,  Jy  for  patches 
A 
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CABC  (MOH) 

CK 

k«ik 

CL 

k4U 

CLL 

*1 

CLO 

Cl  Y 

lk 

COSK 

cos(kfiik) 

cost 

cJ5(kSu) 

vUK 

Current  at  the  center  of  the  segment 

cx 

Cj  for  wires,  J2  for  patches 

INCORE 

Logical  TRUE  when  AX,  BX,  CX  are  In  core 

IOSCR1 

Temporary  scratch  file  (Logical  Unit  1) 

JBLK 

Block  number  for  patch  blocks 

JIXK 

Index  of  a  segment  directed  into  first 
of  segment  1  at  multiple  junction 

JIZK 

Index  of  a  segment  directed  Into  second 
of  segment  1  at  multiple  junction 

JLOC 

Index  in  CUR  array  for  patches 

JOXK 

Index  of  segment  directed  out  of  first 
of  segment  i  at  multiple  junction 

ijti •  K 

Index  of  segment  directed  out  of  second 
of  segment  1  at  multiple  junction 

LAI 

Location  for  the  Imaginary  part  of  A 

LAR 

Location  for  the  real  part  of  A 

tbi 

Location  for  the  imaginary  part  of  B 

18R 

Location  for  the  real  part  of  B 

in 

i  oration  for  the  imaginary  part  of  C 

in 


CABC  (MOM) 


LCR 

SILK 

SINK 

SINL 

5.  I/O  VARIABLES: 
A.  INPUT 
ANUMK 
ANUML 
CUR 

OBGPRT 

OIK 

OIL 

INCORE 

JCOl 

JC02 

JIX 

JIZ 

JOX 

JOZ 

LOCAII 

LOCAIR 

LOCBII 

LOCBIR 

LOCCII 

LOCCIR 


Location  for  the  real  part  of  C 
sin  [k(«u  ♦  «,„)] 
sin  (k«1k) 
sin  (k«u) 

LOCATION 

/ANUH/ 

/ANUM/ 

F.P. 

/ADEBUG/ 

/AMPZIJ/ 

/AHPZIJ/ 

F.P. 

/AHPZIJ/ 

/AMPZIJ/ 

/JUNCON/ 

/JUNCON/ 

/JUNCON/ 

/JUNCON/ 

/FLDCOM/ 

/FLDCOM/ 

/FLDCOM/ 

/FLDCOM/ 

/FLDCOM/ 

/FLDCOM/ 


i 
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CA8C 


'MOM) 


NCIX 

/JUNCON/ 

NCIZ 

/JUNCON/ 

NCOX 

/JUNCON/ 

NCOZ 

/JUNCON/ 

NUMSEG 

/SEGMNT/ 

NWIRE 

/SEGMNT/ 

B.  OUTPUT 

LOCATION 

TEMP 

/TEMPOl/ 

CALLING  ROUTINE: 

FLOOR V 

7.  CALLED  ROUTINES: 
ASSIGN 
CLSf IL 
GETSEG 
OPNFIL 
SEJCON 
STATIN 
STATOT 
WLKBCK 


113 


1.  NAME:  CAPINT  (GTD) 

2.  PURPOSE:  To  determine  if  a  ray  traveling  from  a  given  source  loca¬ 
tion  In  a  given  direction  will  hit  a  cylinder  end  cap. 

3.  METHOD:  The  subroutine  checks  to  see  If  a  ray  emanating  from  a 
source  in  a  given  direction  hits  a  cylinder  end  cap.  First  U 
checks  if  the  ray  is  aimed  toward  or  away  from  the  end  cap  plane  by 
comparing  the  sign  of  the  dot  product  of  the  scatter  direction  and 
end  cap  normal  (DN)  with  the  sign  of  the  dot  product  of  the  source 
location  vector  and  end  cap  normal  (AN).  If  the  ray  Is  directed 
toward  the  end  cap  plane  as  shown  in  figure  1,  the  intersection 
point  with  the  plan**  is  found  from: 


The  distance  from  the  intersection  point  to  the  center  of  the  end 
cap  is  then  compared  with  the  radius  of  the  end  cap  to  determine  if 
the  intersection  point  lies  within  the  finite  limits  of  the  end  cap. 

4.  INTERNAL  VARIABLES: 


VARIABLE 


DEFINITION 


A 

AE 

AN 

8 

LNC 

Wfc 


Radius  of  elliptical  cylinder  along  x  axis 
of  the  cylinder  in  wavelengths 

Distance  f'-om  center  of  end  cap  to  edoe 
along  line  in  x-z  plane 

Dot  product  of  vector  from  end  cap  to 
source  and  end  cap  unit  normal 

Radius  cr  elliptical  cylinder  along  y  axis 
of  the  cylinder  in  wavelengths 

The  cosme  of  the  angle  between  the  z  axis 
and  the  plane  of  end  cap  MC  (angle  measured 
in  A-y  plane) 

Cosine  or  V t 


0  Pcopagat  on  direction  in  RC$ 

DHIT  Distance  from  source  to  nearest  n.t  point 


OHT 


Dis’ ance  r^m  sour.,-  1 1  point 


lib 


:apint 


(GTD) 


ON 

Dot  product  of  end  cap  unit  normal  and 
ray  scatter  direction 

LHIT 

Set  true  if  ray  hits  end  cap 

MC 

End  cap  index  variable 

MO 

Indicates  which  end  caps  a  o  *  n<?  ;?s:*  . 

NC 

Sign  change  variable 

RHO 

Distance  from  z  axis  to  point 
connecting  the  hit  point  and  me  op 
hits  the  cylinder  (2-D) 

RHOT 

Distance  from  z  axis  to  point  XT 

SNC 

rhe  sine  of  the  angle  between  the  z  ct.\  ■ 
and  the  plane  of  end  cap  Mi  (ai  jle  meav.-  =•. 
in  x-y  plane) 

SVE 

Sine  of  VE 

VE 

Elliptical  angle  defying  h?t  aov-.t 

XIS 

X,  Y,  Z  component  s  •  v»v»  ce  (or  -a.  v 

gin)  location  in  RCS.  if  MD  >  0,  variable 
becomes  the  location  of  hit  point  in  RCS 

XT 

X,  Y,  1  components  of  pc*n‘  *here  rsy  h'i5 

end  cap  plane 

ZC 

Point  where  end  cap  intersects  z  axis  of 
RCS.  ZC(1)  refers  to  the  more  positive  end 
cap  and  IC(2)  refers  to  the  more  negative 
end  cap. 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

A 

/GEOMEL/ 

B 

/GEOMEL/ 

CNC 

ULUMI.i  / 

0 

F.P. 
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CAP I NT  (GTD) 


MD 

F.P. 

SNC 

/GEOMEL/ 

XIS 

F.P. 

ZC 

/GEOMEL/ 

OUTPUT 

LOCATION 

DM  IT 

F.P. 

LHIT 

F.P. 

XIS 

F.P. 

CALLING  ROUTINES: 

CYLINT 

GEOMC 

REFCAP 

CALLED  ROUTINE: 
BTAN2 
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1.  NAME:  CLSFIL  (GTD,  INPUT,  MOM,  OUTPUT) 

2.  PURPOSE:  To  close  peripheral  logical  files. 


3.  METHOD:  A  FORTRAN  end  of  file  Is  written  on  the  fi'e  and  the  f'le 
Is  rewound.  Internal  file  flags  are  set. 


4.  INTERNAL  VARIABLES: 
VARIABLE 

IF  I LE 

5.  I/O  VARIABLES: 

A.  INPUT 
IFILE 

B.  OUTPUT 

iorn.E 

NDFII.E 


DEFINITION 
Logical  unit  number. 


LOCATION 

F.P. 

, OCA II ON 
/ I0FLES/ 
/IOFlES/ 


6.  CALLING  iU)U !  •  *>E S . ' 
BUBBLE  (1) 

CABC  (3) 

DECOMP  (3) 

OMPDRV  (1,2, 3, 4) 
ERROR  (1,2, 3, 4) 
FLDDRV  (3) 

GEODRV  (1) 

OPNFIL  (1,2, 3. 4) 
PUTSYM  (1,2, 3, 4) 

7.  CALLED  ROUTINES: 
NONE 

*1  -  INPUT 

2  -  GTD 

3  -  MOM 

4  -  OUTPUT 


RWFILS  (1,2, 3, 4) 
SOLDRV  (3) 

STATFN  (1,2, 3, 4) 
SUBPAT  (1) 

SYMDEF  (1,2, 3, 4) 
TSKXQT  (3) 

WRTCHK  (1,2, 3,4) 
ZIJDRV  (3) 
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(GTD,  INPUT,  MOM,  OUTPUT) 
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1.  NAME:  CNTGNO  (MOM) 

2.  PURPOSE:  Determine  ground  plane  connections  and  their  validity. 

3.  METHOD:  For  each  of  the  MOM  wire  segments  a  check  Is  made  to  deter¬ 
mine  whether  or  not  one  end  or  the  other  Is  connected  to  the  ground 
plane  in  the  x-y  plane,  if  one  has  been  specified.  If  an  end  is 
found  to  be  in  the  ground  plane,  then  its  connectivity  data  are 
examined  to  see  If  there  is  another  wire  segment  attached  at  this 
point.  If  there  is,  then  an  error  condition  is  set  and  execution 
will  terminate.  If  a  valid  attachment  to  ground  Is  found,  then  the 
connectivity  data  ar*.  updated  oy  showing  that  segment  is  connected 
to  Itself  through  th-_  g-cund  plane.  This  is  an  trtifice  to  maintain 
the  continuity  ut  'rent  constraint  at  the  segment/grouno 
interface, 

4.  INTERNAL  VARIABLES: 

VARIABLE 
HAFI GH 
IBLK 
ICON 
INEG 
IPOS 
LOCSAV 


LOCYRS 


NOGCFG 


ZC 

ZN 

ZP 
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DEFINITION 

Half  the  segment  length 

Current  block  of  geometry  data 

Connection  data  for  segment 

Connection  data  for  negative  end 

Connection  data  for  positive  end 

Logical  file  designation  for  last  segment 
data  set 

Pointer  to  segment  data  set  entry  in  NDATBL 
array 

Flag  set  when  multiple  junction  on  ground 
plane  detected 

Number  of  wires  connected  to  ground 
Z  coordinate  of  the  segment  center 
Z  coordinate  minus  half  the  segment  length 
Z  coordinate  plus  half  the  segment  length 


i 


CNTGND 


(MOM) 


S.  I/O  VARIABLES: 


A.  INPUT 

LOCATION 

IPERF 

/AMPZIJ/ 

IP217 

/GEODAT/ 

ISGTBL 

/SEGMNT/ 

ISOFF 

/AOEBUG/ 

ISON 

/ADEBUG/ 

KOLNAM 

/PARTAB/ 

LOCYRS 

F.P. 

LUPRNT 

/ADEBUG/ 

MAXBLK 

/SEGMNT/ 

MAXSEG 

/SEGMNT/ 

NOATBL 

/PARTAB/ 

NWIRE 

/SEGMNT/ 

SEGTBL 

/SEGMNT/ 

ZERO 

/AOEBUG/ 

B.  OUTPUT 

LOCATION 

IERRF 

/AOEBUG/ 

ISGTBL 

/SEGMNT/ 

CALLING  ROUTINE: 

ZIJDRV 

CNTGND 


(MOM) 


1.  NAME:  CNVGTO 


(INPUT) 


2.  PURPOSE:  Detect  and  link  all  wires  which  are  connected  to  plates. 
Update  the  SEGTBL  entries  for  connected  wires. 

3.  METHOD:  Both  ends  of  every  wire  segment  in  SEGTBL  are  checked  to 
see  If  an  end  lay  within  the  domain  of  a  GTD  plate.  Subroutine 
PLTSEG  Is  called  with  an  endpoint  and  returns  the  plate  number  to 
which  the  end  is  attached.  The  segment  may  be  attached  to  any  point 
on  the  plate,  and  more  than  one  segment  may  be  connected  to  the  same 
plate.  If  the  end  attaches  to  no  plate,  zero  Is  returned. 

When  a  connection  Is  detected,  the  SEGTBL  entry  for  that  segment  is 
updated  by  placing  the  segment  number  In  the  left  half  (negative  end 
connected)  or  right  half  (positive  end  connected)  of  the  connection 
data  word  SEGTBL  (9,1).  These  connections  will  be  treated  like 
wires  connected  to  ground  In  SEJCON  and  ZIJSET  so  that  the  segment's 
basis  function  may  be  properly  distributed  using  Image  theory. 

An  error  will  occur  If  a  wire  segment  Is  attached  to  something  else 
(another  wire,  a  patch,  or  ground)  at  the  same  end  that  Is  attached 
to  a  plate.  Thus,  no  multiple  junctions  are  allowed  at  plate 
attachment  points.  Moreover,  for  good  current  modeling,  only  one 
end  of  any  segment  should  be  connected  to  a  patch,  plate,  or  ground. 

4.  INTERNAL  VARIABLES: 


VARIABLE 

DX.DY.DZ 

FLEN 

I 

ICON 
IENDI 
IEND2 
IH  IT 

ILIM 

INEG 


DESCRIPTION 

Direction  cosines  of  wire  segment  vector 
orientation 

Segment  length 

Wire  segment  loop  Index 

Segment  connection  data  word 

Negative  endpoint  number 

Positive  endpoint  number 

Plate  number  to  which  segment  Is  attached 
(zero  If  no  attachment) 

Number  of  segments  In  this  SEGTBL  block 

Connection  data  for  negative  endpoint 
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CNVGTD 


(INPUT) 


IPOS 

Connection  data  for  positive  endpoint 

IS 

Hire  segment  number 

IWRBLK 

Number  of  SEGTBL  blocks  containing  wire 
segments 

K 

SEGTBL  block  loop  Index 

NCON 

Total  number  of  segment-plate  connections 

NOGOFG 

Internal  error  flag 

XC.YC.ZC 

Coordinates  of  segment  center 

XN.YN.ZN 

Coordinates  of  segment  negative  endpoint 

XP.YP.ZP 

Coordinates  of  segment  positive  endpoint 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

IP217 

/GEODAT/ 

ISGTBL 

/SEGMNT/ 

ISOFF 

/ADEBUG/ 

ISON 

/ADEBUG/ 

MAXBLK 

/SEGMNT/ 

MAXSEG 

/SEGMNT/ 

NWIRE 

/SEGMNT/ 

SEGT8L 

/SEGMNT/ 

UPOBLK 

/SEGMNT/ 

B.  OUTPUT 

LOCATION 

IERRF 

/ADEBUG/ 

ISGTBL 

/SEGMNT/ 

UPOBLK 

/SEGMNT/ 
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CNVGTD 


(INPUT) 


6.  CALLING  ROUTINE:  LNKGTD 

7.  CALLED  ROUTINES: 

ASSIGN 

ERROR 

GETSEG 

PLTSEG 

STATIN 

STATOT 

WLKBCK 
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CNVGTD 


(INPUT) 


CNVGTD 


(INPUT) 


VES 


' 

f 

WRITE  WARNING 
MESSAGE 

1 

r 

SET  NOG 

OFLAG 

+ 


WRITE  MESSAGE 
TO  THAT  EFFECT 


(INPUT) 


ES 
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1.  NAME:  CNVTST  (GTD,  MOM) 

2.  PURPOSE:  Convergence  test  for  Rombert  integration  routine  ROMBNT. 

3.  METHOD:  If  value  of  F2  is  less  than  or  equal  to  10~^®  set 

CNVTST  =»  0,  otherwise  set  to  |  (FI  -  F2)/F2|  . 

4.  INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 

FI  First  trapezoidal  rule  result 

F2  Second  trapezoidal  rule  result 

5.  I/O  VARIABLES: 

A.  INPUT  LOCATION 

FI  F.P. 

F2  F.P. 

B.  OUTPUT  LOCATION 

CNVTST  FUNCTION 

6.  CALLING  ROUTINE:  ROMBNT 

7.  CALLED  ROUTINE:  None. 
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CNVTST 


CNVTST = 
|(F1-F2)/F2| 


1.  NAME:  CONJUG 


(MOM) 


2.  PURPOSE:  This  subroutine  conjugates  a  complex  matrix. 

3.  METHOD:  For  a  complex  matrix  every  Imaginary  element  is  replaced  by 
its  negative. 

4.  INTERNAL  VARIABLES: 


VARIABLE 

DEFINITION 

L 

Total  number  of  elements  in  the  array 

NC 

Number  of  columns  in  the  complex  matrix 

NR 

Number  of  rows  in  the  complex  matrix 

Z 

The  complex  matrix 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

NC 

F.P. 

NR 

F.P. 

Z 

F.P. 

B.  OUTPUT 

Z 

F.P. 

CALLING  ROUTINE: 

SOLDRV 

CALLED  ROUTINES: 

ASSIGN 

STATIN 

STATOT 

WLKBCK 
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(MOM) 


^  CONJUG 


SET 

LIM 

LOOP 

ITS 

y 

f 

REPLACE 
IMAGINAE 
WITH  ITS 

EVERY 

IY  TERM 
NEGATIVE 

^  RETURN 


136 


I 


1.  NAME:  CONVRT 


(GTO,  INPUT,  MOM,  OUTPUT) 


2.  PURPOSE:  Decodes  Internal  symbolic  codes  to  external,  left  justi¬ 
fied  blank  filled  BCD. 

3.  METHOD:  By  dividing  the  Input  by  2  raised  to  the  power  of  the 
number  of  bits  per  byte,  the  encoded  characters  are  loaded  Into  an 
array.  By  comparing  this  array  with  the  Internal  BCD  representa¬ 
tion,  the  output  Is  constructed. 

4.  INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 


ICHAR 

BCD  representation  loaded  in  proper 
position 

ID 

Output  word 

IND 

Index  to  INTBCD  array 

INTBCD 

Integer  array  corresponding  to  BCD  repre¬ 
sentation  of  characters  (machine  dependent) 

INTWRD 

Intermediate  output  word 

NBYTES 

Number  of  bits  per  word 

NBYTSZ 

Number  of  bits  per  byte 

NSH 

Power  of  2  such  that  multiplication  by  this 
number  results  in  a  bit  pattern  being 
shifted  by  one  byte. 

NW 

Input  NWORD  shifted  to  right  by  one  byte 

NWORD 

Internal  NW 

NXTWRD 

Word  NWORD  shifted  to  right  by  one  byte 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

NW 

F.P. 

B.  OUTPUT 

LOCATION 

ID 

F.P. 
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CONVRT 


(GTD,  INPUT,  MOM,  OUTPUT) 


CALLING  ROUTINES:* 

BACSUB  (3) 

POSTIP  (1,2) 

BANDIT  (3) 

POSTPR  (1) 

DMPORV  (1,2, 3,4) 

PREPAR  (1) 

EGFMAT  (3) 

PRTKJ  (2,3) 

EXCORV  (2,3) 

PRTSYM  (3) 

FLOORV  (2,3,4) 

PUTKWV  (1,2, 3,4) 

FLOOUT  (4) 

PUTSYM  (1,2, 3,4) 

FNDREC  (1,2, 3, 4) 

REBLCK  (3) 

GEMACS  (1) 

RESTRT  (1) 

GEODRV  (1) 

RWFILS  (1,2, 3,4) 

GETARG  (1,2, 3, 4) 

SETDRV  (3) 

GETGEO  (2,3,4) 

SOLDRV  (3) 

GETKWV  (I, 2, 3, 4) 

SYMDEF  (1,2, 3, 4) 

GETSYM  (1,2, 3, 4) 

SYMUPD  (1,2, 3, 4) 

LODDRV  (3) 

TSKXQT  (1,2, 3, 4) 

LUDORV  (3) 

ZIJDRV  (2,3) 

PLTDRV  (1) 

ZIJSET  (3) 

CALLED  ROUTINES: 

NONE 

*1  -  INPUT 

2  -  GTO 

3  -  MOM 

4  -  OUTPUT 
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1.  NAME:  COORDS 


(INPUT) 


2.  PURPOSE:  Performs  all  coordinate  transformations  and  rotations  for 
the  GEMACS  computer  code. 

3.  METHOD:  The  angles  of  rotation  and  the  translation  vectors  are  read 
either  from  the  input  argument  list  or  are  stored  In  common.  The 
angles  used  are  the  polar  angles  as  defined  In  the  User  Manual.  The 
translation  and  rotation  take  place  by  a  call  to  subroutines  TRNLAT 
and  ROTATE,  respectively. 

4.  INTERNAL  VARIABLES: 


VARIABLE 

DEFINITION 

ATTACH 

Logical  TRUE  for  the  ATTACH  operation 

CX 

The  x  component  of  the  specified  coordinate 
system 

CY 

The  y  component  of  the  specified  coordinate 
system 

CZ 

The  z  component  of  the  specified  coordinate 
system 

DX,DY,DZ 

Negative  of  CX,CY,CZ,  respectively 

IC 

Coordinate  system  index 

ICS 

Absolute  value  of  IC 

ICSAV 

Saved  coordinate  system  Index 

IDCSYS 

Coordinate  system  Identification  number 

IERRF 

Error  flag 

II 

Coordinate  system  Index  to  IDCSYS 

LSTCSY 

Last  value  for  a  coordinate  system 

ROX 

Rotation  about  x  axis 

ROY 

Rotation  about  y  axis 

ROZ 

Rotation  about  z  axis 

RX,RY,RZ 

Rotation  angles  for  coordinate  system  II 
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COORDS 


(INPUT) 


Input/output 

transformed 

X 

variable 

that 

Is 

to 

be 

Input/output 

transformed 

y 

variable 

that 

Is 

to 

be 

Input/output 

transformed 

z 

variable 

that 

Is 

to 

be 

5. 


I/O  VARIABLES: 


INPUT 

LOCATION 

ATTACH 

F.P. 

CX 

/CSYSTM/ 

CY 

/CSYSTM/ 

CZ 

/CSYSTM/ 

DB6PRT 

/ADEBUG/ 

IC 

F.P. 

IDCSYS 

/CSYSTM/ 

LSTCSY 

/CSYSTM/ 

N 

F.P. 

ROX 

/CSYSTM/ 

ROY 

/CSYSTM/ 

ROZ 

/CSYSTM/ 

X 

F.P. 

Y 

F.P. 

Z 

F.P. 

OUTPUT 

LOCATION 

IERRF 

/ADEBUG/ 

X 

F.P. 
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COORDS 


(INPUT) 


Y  F.P. 

Z  F.P. 

6.  CALLING  ROUTINES: 

PATCH 

WYRDRV 

7.  CALLED  ROUTINES: 

ASSIGN 

ERROR 

ROTATE 

STATIN 

STATOT 

TRNLAT 

WLKBCK 
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COORDS 


(INPUT) 


Q  COORDS  J 


c 


RETURN 


3 


144 


1.  NAME:  CYAXIS  (GTO) 

2.  PURPOSE:  To  determine  the  conversion  constants  required  to  rotate 
the  geometry  from  the  global  GEMACS  coordinate  system  (SEGTBL 
entries)  to  the  cylinder-centered  reference  coordinate  system  (RCS). 


3.  METHOD:  The  variable  ICSYS  represents  the  coordinate  system  In 

which  the  cylinder  geometry  was  input.  It  is  used  to  define  the 

reference  coordinate  system  (RCS)  for  the  GTD  calculations.  If  a 
cylinder  is  present  In  the  geometry,  the  RCS  origin  Is  defined  In 
the  center  of  the  cylinder.  The  z  axis  runs  parallel  to  the 
cylinder  walls  and  out  the  more  positive  end  cap.  The  major  radius 
of  the  elliptic  cylinder  is  defined  on  the  x  axis.  The  minor  radius 
of  the  cylinder  is  defined  on  the  y  axis.  A  figure  of  this  coor¬ 
dinate  system  is  shown  in  figure  1. 


This  subroutine  calls  subroutine  ROTATE  to  determine  how  the  RCS 
axes  are  represented  in  x,  y,  z  components  of  the  global  coordinate 
system.  The  x,  y,  z  components  defining  each  axis  will  be  used  to 
rotate  all  the  other  geometry  locations  to  the  RCS.  An  ilUiStratis... 
of  this  is  shown  in  figure  2.  The  translation  of  the  geometry  loca 
tlons  is  performed  in  the  calling  routine  GTDDRV. 

If  a  cylinder  is  not  present  in  the  geometry,  the  RCS  is  defined  as 
the  global  coordinate  system  and  CYAXIS  is  not  called. 


4.  INTERNAL  VARIABLES: 


VARIABLE 

ICSYS 

IDCSYS 

LSTCSY 

LUPRNT 

RX 

RY 

RZ 


DEFINITION 

Number  of  the  coordinate  system  to  be  used 
as  the  reference  coordinate  system. 

Contains  coordinate  system  identification 
number . 

Value  of  the  last  coordinate  system  used 
for  geometry  input. 

Output  file. 

Rotation  angle  in  degrees  about  the  x  axis 
of  the  global  system. 

Rotation  angle  in  degrees  about  the  y  axis 
of  the  global  system. 

Rotation  angle  in  degrees  about  the  z  axis 
of  the  global  system. 
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GLOBAL  COORDINATE  SYSTEM 


OBSERVATION  POINT 
(TYPICAL) 


i  i^ure  2 


e' 


Illustration  Showing  the  Reference  Coordinate  System  and 
the  Global  Coordinate  System 


CYAXIS 


(STD) 


XCL 

YCL 

ZCL 


I/O  VARIABLES: 

A.  INPUT 
ICSYS 
IDCSYS 
LSTCSY 
LUPRNT 
ROX 
ROY 
ROZ 

RX 

RY 

RZ 

B.  OUTPUT 
ICSYS 
XCL 
YCL 
ZCL 

CALLING  ROUTINE: 

GTOORV 


Direction  cosine  of  the  reference  coor¬ 
dinate  system  x  axis  unit  vector  In  global 
coordinate  system  components. 

Direction  cosines  of  the  reference  coor¬ 
dinate  system  y  axis  unit  vector  In  global 
coordinate  system  components. 

Direction  cosine  of  the  reference  coor¬ 
dinate  system  z  axis  unit  vector  In  the 
global  coordinate  system  components. 


LOCATION 

F.P. 

/CSYSTM/ 

/CSYSTM/ 

/ADEBUG/ 

/CSYSTM/ 

/CSYSTM/ 

/CSYSTM/ 

/CSYSTM/ 

/CSYSTM/ 

/CSYSTM/ 

LOCATION 

F.P. 

F.P. 

F.P. 

F.P. 
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CYAXIS 


CALLED  ROUTINES: 

ASSIGN 

ROTATE 

STATIN 

STATOT 

WLKBCK 
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(GTD) 


i 


CYAXIS  (GTD) 
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NAME:  CYLINT 


(GTD) 


PURPOSE:  To  determine  If  a  ray  traveling  from  a  given  direction 

will  Intersect  the  elliptic  cylinder. 

METHOD:  First  the  distance  from  the  source  to  the  cylinder  axis  is 
compared  to  the  radius  of  the  cylinder  to  see  If  the  source  can 
Illuminate  the  curved  surface  of  the  cylinder.  If  It  cannot,  as 

illustrated  In  figure  1,  a  check  Is  made  to  see  If  the  source  Is 

Inside  the  cylinder.  If  It  is  not  inside,  subroutine  CAPINT  Is 

called  to  determine  If  the  ray  hits  an  end  cap. 


z 


Figure  1.  Illustration  of  Source  Which  Cannot  Illuminate 
Curved  Cylinder  Surface.  RHOS  <  RHOE 


If  It  is  possible  to  Illuminate  the  curved  surface  (RHOS  >  RHOE),  a 
check  Is  made  to  determine  if  the  ray  Is  aimed  in  the  direction  o' 
the  cylinder  or  not.  If  the  dot  product  of  the  propagation  diret 
tlon  In  the  x-y  plane  and  the  source  location  vector  In  the  x-> 
plane  Is  less  than  or  equal  to  zero,  the  ray  travels  towards  the 
cylinder.  Figure  2  shows  the  two  possibilities. 

The  next  step  is  to  determine  if  a  ray  traveling  towards  the 
cylinder  intersects  the  cylinder  x-y  plane  cross  section. 
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CYLINT  (GTD) 


a)  Ray  Travels  Towards  Cylinder  b)  Ray  Does  Not  Travel  Towards 

Cylinder 

Figure  2.  Illustration  of  Possible  Ray  Paths 


If  6  •  ?1  >  ?1  •  fp  and  D  •  T?  >  Ti  •  Tp,  the  ray  hits  the 
cylinder  cross  section  (see  figure  la). 

If  either  D  •  <  Tj  •  T2  or  6  •  ?2  <  fi  •  ?2,  the  ray  does  not 

hit  the  cylinder  cross  section  (see  figure  3b).  This  case  Is  then 
dismissed. 


a)  Ray  Hits  the  Cylinder  b)  Ray  Does  Not  Hit  the 

Cross  Section  Cylinder  Cross  Section 

Figure  3.  Illustrations  of  Rays  Traveling  Towards  Cylinder 
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CYLIHT 


(GTD) 


If  the  cylinder  cross  section  Is  hit,  the  subroutine  then  solves  a 
quadratic  equation  to  determine  the  two  Intersection  points  on  the 
cylinder  cross  section.  (As  shown  In  figure  3a,  the  propagating  ray 
pierces  the  cylinder  In  two  places.)  The  details  of  this  technique 
are  given  on  pages  90-96  of  reference  A.  The  closer  of  the  two 
Intersections  to  the  source  Is  selected  to  obtain  the  x  and  y  coor¬ 
dinates  of  the  hit  point. 

The  z-locatlon  of  the  hit  point  is  then  determined  and  checked  to 
see  If  It  lies  on  the  curved  surface  within  the  cylinder  end  caps, 
as  shown  In  figure  4.  If  it  does  not,  the  ray  may  hit  a  cylinder 
end  cap  so  CAPINT  Is  called.  If  It  does  hit  the  cylinder,  the 
distance  from  the  source  to  the  hit  point  is  calculated  and  the  sub¬ 
routine  task  Is  complete. 


Figure  4.  Illustration  of  Rays  that:  a)  Hit  Cylinder  Projection 
but  not  Cylinder  and  b)  Hit  Cylinder 

INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 

A  Radius  of  elliptical  cylinder  along  the 

x-axIs  of  the  cylinder  in  wavelengths 

B  Radius  of  elliptical  cylinder  along  the 

y-axis  of  the  cylinder  in  wavelengths 
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CYLINT 


(STD) 


BH 

Parameter  used  In  computing  hit  point  1 

BPL 

Parameter  used  In  computing  hit  point  2 

BTO 

x  and  y  components  of  unit  vectors  of  rays 
from  ray  origin  tangent  to  cylinder 

BTS 

Defines  unit  vectors  of  the  two  source  rays 
tangent  to  the  cylinder,  where  the  unit 
vector  for  the  source  ray  tangent  to 
tangent  point  1  Is  given  by  (figure  3): 

A  A 

T1  =  BTS ( 1 ) z  +  BTS( 2 )y 

and  the  unit  vector  for  the  source  ray 
tangent  to  tangent  point  2  is  given  by: 

A  A 

T2  =  BTS ( 3 ) x  +  BTS(4)y 

CPS 

Cosine  of  PHSR 

CTC 

Cotangent  of  the  angle  between  the  2-axis 
and  the  plane  of  end  cap  MC  (measured  in 
x-z  plane) 

CVE 

Cosine  of  VE 

D 

Ray  propagation  direction  in  RCS 

D12 

Dot  product  of  source  vectors  tangent  to 
the  cylinder  (in  x-y  plane) 

DD1 

Dot  product  of  the  propagation  direction 
and  T1  tangent  unit  vector 

DD2 

Dot  product  of  the  propagation  direction 
and  T2  tangent  unit  vector 

DHIT 

Distance  from  source  to  (nearer)  hit  point 

DM 

Distance  from  source  to  hit  point  1 

DPL 

Distance  from  source  to  hit  point  2 

DTD 

Dot  product  of  ray  origin  vectors  tangent 
to  the  cylinder  (x-y  plane) 

DTS 

The  dot  product  of  the  two  source  vectors 
tangent  to  the  cylinder:  DTS  =  T1  •  T2 
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OXY 

LBOF 

LCYL 

LHIT 

PHSR 

RHOE 

RHOS 

SPS 

SVE 

TX2 

TY1 

TY2 

VE 

VM 

VPL 

VT 

VTO 

XPM.YPM 

XS 


Dot  product  of  ray  from  origin  to  source 
and  propagation  direction  (In  x-y  plane) 

Set  true  If  ray  origin  XS  Is  not  the  source 
location 

Set  true  if  a  cylinder  Is  present 

Set  true  If  ray  hits  cylinder  or  end  cap 

Phi  angle  of  propagation  direction  In  RCS 

Radius  from  z-axis  to  point  where  ray  from 
origin  to  source  intersects  the  cylinder 

Distance  from  source  to  z-axis 

Sine  of  PHSR 

Sine  of  VE 

X  component  of  tangent  unit  vector,  T1 
X  component  of  tangent  unit  vector,  T2 

Y  component  of  tangent  unit  vector,  T1 

Y  component  of  tangent  unit  vector,  T2 

Elliptical  angle  of  source  location  in  RCS 
x-y  plane 

Elliptical  angle  defining  hit  point  1  on 
cylinder  in  RCS  x-y  plane 

Elliptical  angle  defining  hit  point  2  on 
cylinder  In  RCS  x-y  plane 

Elliptical  angle  defining  hit  point  on 
cylinder  closer  to  source 

Not  used  (from  subroutine  TANG) 

ZPH  Used  in  several  cases  to  define  hit  point 

(x,  y,  z  components  In  RCS)  on  cylinder 
(Used  In  various  forms) 

Source  location  (or  point  from  which  ray 
originates)  In  RCS 
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ZC  Point  where  end  cap  Intersects  z  axis  of 

RCS;  ZC(1)  refers  to  the  more  positive  end 
cap  and  ZC(2)  refers  to  the  more  negative 

5.  I/O  VARIABLES: 


INPUT 

LOCATION 

A 

/GEOMEL/ 

B 

/GEOMEL/ 

BTS 

/BNDSCL/ 

CTC 

/GEOMEL/ 

0 

F.P. 

DTS 

/BNDSCL/ 

LBOF 

F.P. 

LCYL 

/LPLCY/ 

PHSR 

F.P. 

XS 

F.P. 

ZC 

/GEOMEL/ 

OUTPUT 

LOCATION 

DHIT 

F.P. 

LHIT 

F.P. 

6.  CALLING  ROUTINES: 
DIFPLT 
DPLRCL 
OPLRPL 
GEOM 
GTDORV 
INCFLO 
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RCLOPL 

RCLRPL 

REFPLA 

RPLDPL 

RPLRCL 

RPLRPL 

RPLSCL 

SCLRPL 

CALLED  ROUTINES: 

BTAN2 
CAP I NT 
TANG 

REFERENCES: 

A.  R.  J.  Marhefka,  "Analysis  of  Aircraft  Wing-Mounted  Antenna 
Patterns,"  Report  2902-25,  June  1976,  The  Ohio  State  University 
ElectroScience  Laboratory,  Department  of  Electrical 
Engineering;  prepared  under  Grant  No.  NGL  36-008-138  for 
National  Aeronautics  and  Space  Administration. 
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1.  NAME:  CYLNDR 


(INPUT) 


2.  PURPOSE:  To  store  raw  GTD  cylinder  geometry  data  into  the  segment 
table  and  make  an  entry  into  the  point  table  for  later  geometry 
linkage  by  LNKGTD. 

3.  METHOD:  WYRDRV  calls  CYLNDR  whenever  a  CY  command  is  encountered  in 
the  geometry  data.  CYLNOR  interprets  the  items  as  scanned  by  SCAN 
and  extracts  values  for  cylinder  number,  major  and  minor  radii  of 
cross  section,  length,  and  coordinate  system.  If  an  optional  item 
is  not  present,  the  values  from  the  last  CY  command  are  used.  All 
optional  values  are  initially  set  to  zero. 

The  format  of  the  CY  command  is 


CY  ncyl  (aa) 

[bb) 

[len) 

[ icsys ) 

array 

2  3 

4 

5 

6 

NVAL/VAL 

indices 

1  1 

2 

3 

4 

IO/FO 

NT I NT  NTFLPT 

NTFLPT 

NTFLPT 

NTINT 

argument  type 

ncyl  = 

user  cylinder  number 

aa 

x  axis  radius 

bb 

y  axis  radius 

len 

length 

icsys  = 

number  of  previously  defined  coordinate  system  to 

be  used  to 

translate  cylinder  center  and  rotate  cylinder  axes. 


CYLNDR  places  the  following  values  in  SEGTBL  and  PNTTBL: 


SEGTBL 

PNTTBL 

1 

I TAG/ IS 

0  ) 

2 

0 

icsys  \ 

3 

AA 

FLEN  I 
/ 

4 

BB 

5 

FLEN 

6 

XTRL  ) 

7 

YTRL  l 

translation 

8 

ZTRL  \ 

9 

THETA  ) 

rotation 

10 

PHI  ) 

angles 

11 

cyl/icsys 

Point  number  id  = 
ITAG/ncyl 
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SEGTBL  data  are  used  In  the  GTD  module.  PNTTBL  data  are  used  later 
by  LNKGTD  In  the  INPUT  module  to  link  cylinders  with  end  caps. 

4.  INTERNAL  VARIABLES: 


VARIABLE  DEFINITION 


AA 

BB 

ERRFLG 

FLEN 

F0 

ICSYS 


X-axis  cylinder  radius  (m) 

Y-axis  cylinder  radius  (m) 

Internal  flag  to  Indicate  command  error 
(Integer) 

Cylinder  length  (m) 

Array  containing  real  values  of  arguments 
Coordinate  system  number 


IPT 

ISG 

ITAG 

ITPARG 

19 

MXCYAR 

NSGTBL 

NUMCY 
THETA, PHI 

XTRL.YTRL.ZTRL 


Packed  word  containing  tag  and  cylinder 
numbers.  The  tag  and  cylinder  numbers  each 
occupy  16  bits  of  the  word. 

Cylinder  segment  number  (assigned  by 
PUTSEG) 

Cylinder  tag  number 

Array  of  variable  types  (real,  integer)  for 
argument  field 

Array  containing  integer  values  of 
arguments 

Maximum  number  of  arguments  allowed  on 
cylinder  command 

Number  of  SEGTBL  entries  required  for 
cylinder  geometry 

The  cylinder  number  assigned  by  the  user 

Angles  defining  cylinder  axis  rotation 
(radians) 

Coordinates  defining  cylinder  center  trans¬ 
lation  (m) 
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I/O  VARIABLES: 


A.  INPUT 

LOCATION 

ICYTAG 

/GTDDAT/ 

IP217 

/GEODAT/ 

ISOFF 

/ADEBUG/ 

ISON 

/ADEBUG/ 

NARGS 

/SCNPAR/ 

NCODE 

/SCNPAR/ 

NTFLPT 

/ADEBUG/ 

NTINT 

/ADEBUG/ 

NVAL 

/SCNPAR/ 

SCALE 

/SEGMNT/ 

VAL 

/SCNPAR/ 

B.  OUTPUT 

LOCATION 

NOGOFG 

/SCNPAR/ 

CALLING  ROUTINE: 

WYRDRV 

CALLED  ROUTINES: 

ASSIGN 

GTDCS 


PUTPNT 

PUTSEG 

STATIN 

STATOT 

WLKBCK 
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1.  NAME:  DECOMP 


(MOM) 


2.  PURPOSE:  Subroutine  DECOMP  performs  lower-upper  triangular 

decomposition. 

3.  METHOD:  The  method  employed  to  decompose  matrices  into  lower  and 
upper  triangular  matrices  is  as  follows:  the  matrix  Is  determined  to  be 
real  or  complex,  banded  or  nonbanded.  In  core  or  out  of  core.  The 
decomposition  of  all  matrices  is  identical,  the  only  differences 
occurring  when  a  matrix  resides  out  of  core.  When  a  matrix  Is  stored  on 
a  peripheral  file  the  initial  action  is  to  read  in  as  much  of  the  matrix 
as  will  fit  into  the  core  space  allocated.  Decomposition  proceeds 
normally  until  the  end  of  the  current  incore  matrix  is  reached.  At  this 
point  the  diagonal  column  is  maintained  in  core  and  the  rest  of  the 
available  core  space  is  used  to  read  in  the  next  block  of  columns  of  the 
matrix.  This  proceeds  until  all  of  the  columns  of  the  matrix  have  been 
decomposed.  The  column  elements  of  the  matrix  below  the  diagonal  row  are 
written  to  a  separate  file  as  they  are  decomposed.  The  pivot  row  is 
written  to  another  file  as  it  is  decomposed.  When  the  entire  matrix  has 
been  decomposed  for  the  given  diagonal  element,  the  file  which  has  just 
been  written  with  the  decomposed  matrix  is  interchanged  with  the  file 
upon  which  the  matrix  was  stored.  The  decomposition  then  proceeds 
identically  as  before  with  the  files  swapped.  In  this  way,  only  those 
elements  which  are  needed  for  further  decomposition,  that  is,  those 
elements  to  the  right  of  the  diagonal  element  column  and  beneath  the 
diagonal  element  row,  are  written  out  to  the  file  and  consequently  read 
back  in  for  the  next  round  of  decomposition.  With  this  method,  one 
eventually  gets  to  the  point  at  which  the  rest  of  the  matrix  to  be 
decomposed  resides  in  core.  At  this  point,  the  out-of-core  decomposition 
process  ceases,  and  the  matrix  is  decomposed  as  if  it  resided  entirely  in 
core.  The  difference  between  handling  a  banded  versus  a  nonbanded  matrix 
is  in  the  limits  assigned  to  the  rows  and  columns  to  be  decomposed.  The 
difference  between  handling  a  real  or  complex  matrix  has  to  do  simply 
with  the  number  of  words  per  matrix  element.  Complex  matrices  have  two 
words  per  element.  At  the  conclusion  of  decomposing  an  out-of-core 
matrix  those  parts  of  the  matrix  which  belong  to  the  lower  and  upper 
triangular  matrices  are  written  out  to  the  respective  files. 

4.  INTERNAL  VARIABLES: 

VARIA8LE  DEFINITION 

A  In-core  storage  area  available  for  the 

matrix 


BANDED 


Logical  variable  set  to  true  when  decom¬ 
posing  a  banded  matrix 


OECOMP 


(MOM) 


BNDMAT 

Name  for  a  banded  matrix 

BUBUFR 

Storage  area  to  buffer  the  upper  triangular 
matrix 

BUI 

The  Imaginary  part  of  the  upper  element  of 
the  decomposed  matrix 

BUR 

The  real  component  of  the  upper  element  of 
the  decomposed  matrix 

01  AG  I 

The  imaginary  part  of  the  diagonal  element 

DIAGR 

The  real  component  of  the  diagonal  element 

DMAG 

The  magnitude  of  the  diagonal  element 

DMAGSV 

Saved  value  of  DMAG  for  checkpoint/restart 

DMAX 

Maximum  diagonal  element 

OMIN 

Minimum  diagonal  element 

DT 

Elapsed  time  of  execution 

IB  IT 

Character  value  indicating  real  or  complex 
matrix 

IJ 

The  location  of  the  JK  element  of  the 
matrix  to  be  decomposed 

IJSAV 

IJ  +  NPRELM 

IK 

Record  index  for  matrix 

INCORE 

Logical  variable  set  to  TRUE  when  the 
entire  matrix  resides  in  the  core 

INDX 

Statement  function  to  determine  the  loca¬ 
tion  of  the  (I,  J)  element  of  the  matrix  to 
be  decomposed 

IOA 

Logical  unit  containing  the  matrix  to  be 
decomposed 

IOBL 

Logical  unit  upon  which  the  lower 
decomposed  matrix  is  to  be  written 
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IOBU 

1051 
IOS1SV 

1052 
IR 
IHt 

IW2 

JLIM 

JPVT 

JROW 

K1 

KOL 

LSTCLM 

LSTIJ 

LSTWRD 

M 

MAXBUP 

MAXCOL 

MAXCOR 

MOVWRD 

MP1 


Logical  unit  on  which  the  upper  decomposed 
matrix  Is  to  be  written 

Scratch  logical  unit  designator 

Saved  value  of  I0S1 

Scratch  logical  unit  designator 

Index  pointer  to  upper  triangular  matrix 

The  location  of  the  real  part  of  the 
diagonal  element 

The  location  of  the  imaginary  part  of  the 
diagonal  element 

Upper  bound  for  number  of  columns  In  core 
Index  to  the  pivot  column  in  core 
Location  of  the  pivot  row 
JPVT  +  1 

Pointer  to  current  column  in  core 

Last  column  in  core  to  be  decomposed 

Location  of  last  element  to  be  decomposed 

Last  word  to  be  retrieved  for  the  current 
operation 

Matrix  bandwidth 

Dimension  size  of  BUBUFR 

Maximum  number  of  columns  in  core 

Maximum  number  of  words  available  In  core 

Number  of  words  to  move  a  file  pointer 

M  plus  one 

Bandwidth  plus  one  at  any  stage  of  the 
decomposition 
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NAMEA 

NBUF 

NCOL 

NCORE 

NDIM 

NDXL 

NOXU 

NMAT 

NPRAIJ 

[jnrN~r)|_ 

Nf. 

V  .LIN 

NPRROW 

NREAO 

NREADA 

NRECA 

NROW 

NUHCOL 

NURDS 

NXTWRD 


Matrix  name 

Number  of  blocks  that  the  submatrix  has 
been  written  Into 

Number  of  columns  In  A 

Input  argument  which  tells  the  maximum 
number  of  columns  that  can  be  put  In  core 

Current  row  dimension  of  the  matrix 

Index  to  the  NDATBL  for  the  lower  triangu¬ 
lar  matrix 

Index  to  the  NDATBL  for  the  upper  triangu¬ 
lar  matrix 

Submatrix  number 

Number  of  words  per  element  of  the  matrix 
to  be  decomposed 

The  number  of  words  per  column  of  the 
matrix  to  be  decomposed 

Internal  value  for  NPRAIJ 

The  number  of  elements  to  the  right  of  the 
diagonal  element 

The  number  of  elements  beneath  the  diagonal 

Number  of  columns  that  have  been  read  from 
the  scratch  file 

Number  of  columns  that  have  been  read  from 
the  source  file 

First  record  to  be  read  Into  core  from  A 

Number  of  rows  In  matrix  A 

Number  of  columns  in  matrix  A 

Number  of  words  to  be  read  from  or  written 
to  a  file 

Next  word  to  be  read 
Pivot  ratio  *  DMAX/DMIN 


PIVRAT 


REAL 

REALM 

SIZE 

SQUARE 

TLEFT 

TNOW 

TSTART 

TYPE 

I/O  VARIABLES: 
A.  INPUT 
A 

CHKPNT 

CHKWRT 

CPFRWD 

DBGPRT 

IOA 

IOBL 

IOBU 

IOCKPT 

IOFILE 

1051 

1052 
LSTSYS 
MAX8UP 
MXBAND 


OECOMP  (MOM) 

Logical  variable  set  to  TRUE  when  the 
matrix  to  be  decomposed  Is  real 

Contains  the  Hollerith  word  REAL 

Temporary  location  for  SQUARE  or  BANDED 

Contains  the  Hollerith  word  SQUARE 

The  amount  of  time  to  decompose  the  matrix 

Current  time 

Time  subroutine  TICHEK  was  last  called 

Type  of  numbers  In  the  matrix,  real  or 
complex 

LOCATION 

F.P. 

/SYSFIL/ 

/SYSFIL/ 

/SYSFIL/ 

/ADEBUG/ 

F.P. 

F.P. 

F.P. 

/SYSFIL/ 

/ IOFLES/ 

F.P. 

F.P. 

/SYSFIL/ 

F.P. 

F.P. 
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NAMEA 

F.P. 

NCOL 

F.P. 

NCORE 

F.P. 

NOXL 

F.P. 

NOXU 

F.P. 

NMAT 

F.P. 

NPRAIJ 

F.P. 

NROW 

F.P. 

RSTART 

/SYSFIL/ 

TIMTGO 

/SYSFIL/ 

8.  OUTPUT 

LOCATION 

A 

F.P. 

BUBUFR 

F.P. 

CHKWRT 

/SYSFIL/ 

LSTSYS 

/SYSFIL/ 

NOATBL 

/PARTAB/ 

RSTART 

/SYSFIL/ 

CALLING  ROUTINE: 

LUDDRV 

CALLED  ROUTINES: 

ASSIGN 

STATIN 

CLSFIL 

STATOT 

ERROR 

SYSCHK 

GETSYM 

TICHEK 

MOVFIL 

WLKBCK 

OPNFIL 

WRTFIL 

ROEFIL 
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NAME:  OFPTCL  (GTO) 

PURPOSE:  To  determine  the  up-to-four  diffraction  points  which  can 
gccur  on  a  cylinder  end  cap  rim  for  a  given  radiation  direction 
D  in  the  far  field  or  to  a  specific  point  FLDPT  in  the  near-field. 

METHOO:  An  eighth  order  polynomial  equation  Is  used  to  solve  for 
eight  possible  points  on  the  end  cap  rim  that  can  be  diffraction 
points.  These  points  are  defined  by  elliptic  angles  in  the  local 
elliptic  coordinate  system  for  the  end  cap.  The  points  are  next 
integerized  and  sorted  to  remove  duplicate  points.  The  accuracy  of 
the  possible  diffraction  points  is  then  improved  by  a  first  order 
Taylor  series  interpolation  scheme.  The  details  are  given  on  pages 
125-127  of  reference  A.  The  two-to-four  correct  diffraction  points 
remaining  are  verified  by  checking  to  see  which  points  satisfy  the 
laws  of  diffraction.  An  illustration  is  shown  in  figure  1. 


A 


Figure  1.  Curved  Wedge  Diffraction  Points  on  Rim  of  End  Cap 
of  Elliptic  Cylinder 
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4.  INTERNAL  VARIABLES: 
VARIABLE 
A 

AE 

B 

C 

CC 

CNC 


CTC 


CV 

D 

D4 

DO 

DEEX,DEEY,DEEZ 

DEL 

DENI 

DEN2 


DEFINITION 

Radius  of  cylinder  along  x  axis  iri  wave¬ 

lengths 

Half-length  of  end  cap  (half-length  of  line 
created  by  intersection  of  end  cap  and  x-z 
plane) 

Radius  of  cylinder  along  y  axis  in  wave¬ 

lengths 

Cosine  of  VR 

Polynomial  equation  coefficients 

Cosine  of  the  angle  between  the  z  axis  and 
the  end  cap  plane,  where  CNC ( 1 )  refers  to 
the  more  positive  end  cap  and  CNC(2)  refers 
to  the  more  negative  end  cap  (angle 
measured  in  x-z  plane) 

Cotangent  of  the  angle  between  the  z  axis 
and  the  end  cap  plane,  where  CTC(l)  refers 
to  the  more  positive  end  cap  and  CTC(2) 
refers  to  the  more  negative  end  cap  (angle 
measured  in  x-z  plane) 

Computational  variable 

The  x,  y,  z  components  of  the  unit  vector 
of  the  observation  propagation  direction 

Computational  variable 

Computational  variable 

X,Y,Z  components  of  vector  from  diffraction 
point  to  center  of  end  cap  in  RCS 

Test  variable 

Magnitude  of  unnormalized  edge  unit  vector 

Distance  from  source  to  Improved  diffrac¬ 
tion  point 
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DEN3 

DEN5 

OH 

DOTQ1 

D0TQ2 

OPR 

DSSX.DSSY.DSSZ 

DV 

EEX.EEY.EEZ 

EPSQ 

EXQ.EYQ.EZQ 

FLDPT 

I 

IDEL 

IV 

J 

K 


Length  of  incident  ray  vector 
Computational  variable 

X,Y,Z  components  of  unit  vector  of  propaga¬ 
tion  direction  in  end  cap  coordinate  system 

Dot  product  of  edge  vector  and  Incident  ray 

Dot  product  of  edge  vector  and  diffracted 
ray 

Conversion  factor  for  converting  angular 
measurements  in  radians  to  degrees  (180/it) 

X,Y,Z  components  of  vector  tangent  to 
diffraction  point  in  end  cap  plane  in  RCS 

Change  in  elliptic  angle  V  calculated  to 
improve  accuracy  of  diffraction  point 

X,Y,Z  components  of  ray  tangent  to  diffrac¬ 
tion  point  in  RCS 

Difference  in  D0TQ1  and  00TQ2  (error  test 
variat 'e) 

X,Y,Z  components  of  normalized  edge  unit 
vector  in  RCS 

The  x,y,z  components  of  the  near-field 
field  point  location  in  the  reference  coor¬ 
dinate  system  in  wavelengths 

Do  loop  variable 

Test  variable 

Elliptic  angles  defining  permissible 
diffraction  points  in  RCS  x-y  plane  (in 
degrees,  rounded  off  to  nearest  integer) 

Elliptic  angle  defining  diffraction  point 
in  RCS  x-y  plane  in  degrees 

Oo  loop  variable 
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LNRFLD 

N 

NC 

NCC 

P 

Q 

QC 

R 

RC 

ROOT 

RPD 

S 

SNC 


SSX.SSY.SSZ 


Flag  which  indicates  if  far-field 
(INRFLD=0)  or  near-field  (LNRFLD=1)  calcu¬ 
lations  were  requested 

Index  variable  (also  number  of  permissable 
roots) 

End  cap  where  diffraction  occurs 
Sign  change  variable 
Polynomial  equation  variable 
Polynomial  equation  variable 
Complex  conjugate  of  Q 
Polynomial  equation  variable 
Complex  conjugate  of  R 

Roots  of  polynomial  equation  returned  from 
subroutine  POLYRT 

Conversion  factor  for  converting  angular 
measurements  in  degrees  to  radians  (n/ 180) 

Sine  of  elliptic  angle  V  (also  polynomial 
equation  variable) 

Sine  of  the  angle  between  the  z  axis  and 
end  cap  plane,  where  SNC(l)  refers  to  the 
more  positive  end  cap  and  SNC(2)  refers  to 
the  more  negative  end  cap  (angle  measured 
in  x-z  plane) 

X,Y,Z  components  of  vector  incident  on  edge 
in  RCS 


SXQ,SYQ,SZQ  X,Y,Z  components  of  unit  vector  of  propaga¬ 

tion  direction  of  incident  ray  in  RCS 

V  Elliptic  angles  defining  diffraction  points 

in  RCS  x-y  plane 

VQ  Elliptic  angle  defining  diffraction  point 

(improved  accuracy) 

VR  Elliptic  angle  defining  diffraction  point 
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VT 

XS 


XSM,YSM,ZSM 

ZC 


I/O  VARIABLES: 
A.  INPUT 


Elliptic  angle  defining  diffraction  point 
(Improved  accuracy)  In  degrees 

The  x,y,z  components  of  the  source  location 
In  the  reference  coordinate  system  In 
wavelengths 

X,Y,Z  components  of  source  location  In  end 
cap  coordinate  system 

Point  where  end  cap  Intersects  z  axis  of 
reference  coordinate  system,  where  ZC(1) 
refers  to  the  more  positive  end  cap  end 
ZC(2)  refers  to  the  more  negative  end  cap 


LOCATION 


A 

B 

CNC 

CTC 

D 

DPR 

FLDPT 

LNRFLD 

NC 

RPD 

SNC 

ZC 

B.  OUTPUT 
V 


/GEOMEL/ 

/GEOMEL/ 

/GEOMEL/ 

/GEOMEL/ 

/DIR/ 

/PIS/ 

/NEAR/ 

/NEAR/ 

F.P. 

/PIS/ 

/GEOMEL/ 

/GEOMEL/ 

LOCATION 

F.P. 
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6.  CALLING  ROUTINE: 

ENDIF 

7.  CALLEO  ROUTINES: 

BABS 

NFD 

POLYRT 

8.  REFERENCES: 

A.  R.  J.  Marhefka,  "Analysis  of  Aircraft  Wing-Mounted  Antenna 
Patterns,"  Report  2902-25,  June  1976,  The  Ohio  State  University 
ElectroSclence  Laboratory,  Department  of  Electrical  Engi¬ 
neering;  prepared  under  Grant  No.  NGL  36-008-138  for  National 
Aeronautics  and  Space  Administration. 
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1.  NAME:  DFPTWD  (GTO) 

2.  PURPOSE:  To  determine  the  diffraction  point  on  edge  ME  of  plate  MP 
for  a  given  source  location  X5  and  a  diffracted  ray  direction  D  for 
far  field  or  a  field  point  FLDX  for  near-field  calculations. 

3.  METHOD:  For  far-fleld  calculations  the  cosine  of  80,  the  diffrac¬ 
tion  angle.  Is  known  by: 


cos  B0  =  6  •  V 


where  6  Is  the  given  far-fleld  direction  and  9  Is  the  plate  edge 
unit  vector.  Then  the  cosines  of  the  angle  between  the  plate  edge 
and  the  vector  from  the  plate  corners  to  the  source  are  found.  The 
cosine  of  the  diffraction  angle  must  fall  between  these  two  angle 
cosines  or  the  diffraction  point  Is  not  on  the  plate  edge.  If  It 
does  not  fall  within  the  corners,  LDIFFR  Is  set  to  false  to  Indicate 
to  the  calling  routine  that  diffraction  did  not  occur.  If  the 
diffraction  angle  Is  between  the  bounds,  the  diffraction  point  loca¬ 
tion  Is  found.  Figure  1  shows  the  Important  far-fleld  geometry. 
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The  steps  needed  to  find  a  near-field  diffraction  point  are  wore 
Involved.  Figures  2  and  3  show  the  needed  near-field  geometry. 

51  Is  the  vector  from  the  edge-fixed  coordinate  system  origin*  to 
the  source  point.  To  calculate  5J  In  the  edge-fixed  coordinate 
system,  first  find  5J  In  the  reference  coordinate  system  (RCS). 
Se.RCS  1s  91ven  by 


s  * 

e ,  RCS 


XS  -  X. 


Then  dot  5J^rcs  with  the  unit  vectors  that  represent  the  edge-fixed 
coordinate  system.  These  unit  vectors  are  VP,  VN  and  V.  VP,  the 
plate  blnormal.  Is  the  RCS  representation  of  X?.  VN,  the  plate 
normal.  Is  the  RCS  representation  of  Ye.  V,  the  plate  edge  unit 
vector.  Is  the  RCS  representation  of  Ze.  This  calculation  Is 
written  as 


s;u) 

s;<2> 


s;<3) 


S ' 

se , RCS 


S  • 

se , RCS 


S ' 

se,RCS 


VP 


VN 


V 


Sq  In  the  edge-fixed  coordinate  system  Is  given  as 


s;  -  s;<i)  xe  +  s;(2>  ve  +  s;p)  ze. 


*The  edge-fixed  coordinate  system  Is  a  coordinate  system  applied  to 
a  plate  edge  such  that  the  xe  value  Is  In  the  plate  plane  and  normal  to 
the  edge  (the  edge  blnormal),  the  ye  value  Is  normal  to  the  plate  and  the 
ze  value  Is  along  the  plate  edge.  For  diffraction  calculations,  the 
origin  of  this  system  Is  set  at  the  edge  corner  from  which  a  ray  In  the 
direction  of  ze  would  propagate  away. 
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Figure  2.  RCS  and  Edge- Fixed  Coordinate  System  Geometry  for 
Calculation  of  Near-Field  Diffraction  Point 
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Figure  3.  Edge-Fixed  Coordinate  System  Geometry  for  Calculation 
of  Near- Field  Diffraction  Point 
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51  Is  the  vector  from  the  edge-fixed  coordinate  system  origin  to  the 
field  point.  To  calculate  5Z  in  the  edge-fixed  coordinate  system, 
first  find  5£  In  the  RCS.  Se^RCS  *s  9lven  by 


Se,RCS  "  PLDPT  -  X* 


Then  dot  S«  rcc  with  the  edge-fixed  coordinate  system  unit  vectors 
from  the  RC5*.  This  gives 


se(i> 


Se(2) 


Se(3) 


Se / RCS 


Se,RCS 


Se,RCS 


A 

VP 


A 

VN 


V 


5^  In  the  edge-fixed  coordinate  system  Is  given  by 


Se  *  se(1)  Xe  +  Se(2)  Ye  +  Se(3>  Ze 


Now  the  values  of  r'(  z£,  r  and  ze  are  needed.  The  value  z£  is 
SA(3) ,  the  edge-fixed  coordinate  system  z  value  of  the  source  point. 
The  value  ze  Is  Sp(3),  the  edge-fixed  coordinate  system  z  value  of 
the  field  point.  The  value  r'  Is  found  by 


where  x£  Is  S£(l)  and  y£  Is  S£(2),  the  x  and  y  edge-fixed  coordinate 
system  values  of  the  source  point.  The  value  r  Is  found  by 
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where  xe  Is  Se(l)  and  ye  Is  S »(2),  the  edge-fixed  coordinate  systew 
x  and  y  values  of  the  field  poTnt. 

The  diffraction  angle,  80,  Is  found  as: 


The  diffraction  point  location  on  the  edge,  Zq,  Is  given  as 

D  ze  tan  B  * 
o 


The  edge-fixed  coordinate  system  vector  from  the  origin  to  the 
diffraction  point,  P^,  Is  defined  as 


0  Xe  +  0  Ye  +  ZD  Ze  . 


The  diffraction  point  In  RCS  coordinates  Is  determined  by  the  vector 
from  the  RCS  origin  to  the  diffraction  point,  TP.  This  vector  Is 
found  by  the  addition  of  the  vector  from  the  RCS  origin  to  the  edge- 
fixed  coordinate  system  origin,  7,  and  DjT  In  RCS  coordinates. 
D6tRcs  Is  obtained  by  multiplying  Zq  and  V.  XP  Is  given  as 


XD  *  X  +  ZD  V  . 


Two  checks  are  required  to  verify  that  diffraction  did  occur.  For 
diffraction  to  occur,  the  diffraction  point  must  be  on  the  finite 
plate  edge.  If  the  edge  length  is  VMAG,  then  0  <  Zq  <  VMAG  for  the 
diffraction  point  to  be  on  th„e  edge.  Also  the  doF  product  of  0,  the 
observation  direction,  and  V,  the  plate  edge  vector  needs  to  be 
checked.  6  •  V  Is  the  .cosine  of  Bo»  the  diffraction  anale.  If  the 
absolute  value  of  D  •  V  Is  less  than  0.999,  then  diffraction  did 
occur.  If  It  Is  greater  than  0.999,  diffraction  Is  said  not  to  have 
occurred  because  It  Is  too  close  to  grazing  Incidence. 
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After  the  diffraction  point  location  for  far  field  or  near  field  has 
been  found  and  verified,  the  distance  from  the  source  to  the  dif¬ 
fraction  point  (SP)  and  the  Incident  ray  unit  vector  (vi)  are  deter¬ 
mined  by 


SP  *  n/xd  -  XS 


a  xp_r  ?S 
Vi  SP 


INTERNAL  VARIABLES: 

VARIABLE 

DEFINITION 

B 

The  diffraction  angle  B0 

BDHI 

Upper  bound  cosine  for  a  permissible  dif¬ 
fraction  angle 

BOLOW 

Lower  bound  cosine  for  a  permissible  dif¬ 
fraction  angle 

BRO 

Array  for  the  dot  products  of  the  unit  edge 
vector  and  the  unit  vector  between  the 
source  and  each  corner  on  edge  ME 

CTB 

Cotangent  of  B 

D 

Observation  direction 

DV 

Cosine  of  B 

EMAG 

The  length  of  plate  edge  ME 

FLDX 

Near-field  observation  point 

LCORNR 

Logical  variable  set  true  If  corner  dif¬ 
fraction  calculations  were  requested 

LOIFFR 

Logical  variable.  Set  true  to  Indicate  If 
diffraction  occurs.  Set  false  to  Indicate 
diffraction  not  possible 
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LNRFLD 

Flag  which  Indicates  If  far-fleld 
(LNRFLD=0)  or  near-field  (LNRFLD»1)  calcu¬ 
lations  were  requested 

ME 

Edge  where  diffraction  occurs;  also  first 
corner  on  this  edge 

MEP 

Array  which  contains  the  number  of  edges 
(or  corners)  on  plate  MP 

MP 

Plate  where  diffraction  occurs 

N 

DO  loop  variable 

P 

Dot  product  of  edge  vector  and  vector  from 
corner  ME  to  source 

RE  The  xe-ye  plane  magnitude  of  the  field 

point  vector  In  the  edge-fixed  coordinate 
system 

RPE  The  xe-ye  plane  magnitude  of  the  source 

point  location  vector  In  the  edge-fixed 
coordinate  system 

S  Perp  ndicular  distance  from  source  to  edge 

HE 


SE  The  vector  from  the  edge-fixed  coordinate 

system  origin  to  the  field  point  in  the 

edge-fixed  coordinate  system 

SERCS  The  vector  from  the  edge-fixed  coordinate 

system  origin  to  the  field  point  In  RCS 

coordinates 

SP  Distance  from  source  to  diffraction  point 

SPE  The  vector  from  the  edge-fixed  coordinate 

system  origin  to  the  source  point  In  edge- 
fixed  coordinate  system  values 

SPERCS  The  vector  from  the  edge-fixed  coordinate 

system  origin  to  the  source  point  In  RCS 

coordinates 

SX  Variable  used  to  calculate  S 

Array  which  contains  the  edge  unit  vector 
for  edge  ME  of  plate  MP  In  RCS 
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VC 

VCM 

VI 


The  x,  y,  z  components  of  the  two  unit 
vectors  from  the  source  to  the  corners  on 
edge  ME 

Array  which  contains  the  distance  between 
the  source  and  each  corner  on  edge  ME 

Incident  ray  unit  vector 


VN 

VP 

X 


XD 

XS 


Array  which  contains  the  unit  normal  for 
plate  MP  In  RCS 

Array  which  contains  the  unit  blnormal  for 
edge  ME  of  plate  MP  In  RCS 

Array  which  contains  the  corner  locations 
for  plate  MP  edge  ME  In  the  reference  coor¬ 
dinate  system 

Location  of  diffraction  point 
Source  location 


ZD 

ZE 

ZPE 

5.  I/O  VARIABLES: 
A.  INPUT 


The  ze  direction  value  of  the  diffraction 
point  on  the  plate  edge  In  the  edge-fixed 
coordinate  system 

The  ze  direction  value  of  the  field  point 
In  the  edge-fixed  coordinate  system 

The  Zp  direction  value  of  the  source  loca¬ 
tion  In  the  edge-fixed  coordinate  system 


LOCATION 


0 

F.P.  (for  far  field) 

FLDX 

F.P. 

LCORNR 

/LOGDIF/ 

LNRFLD 

/NEAR/ 

ME 

F.P. 

MEP 

/GEOPLA/ 

l 
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MP 

F.P. 

V 

/GEOPLA/ 

VN 

/GEOPLA/ 

VP 

/GEOPLA/ 

X 

/GEOPLA/ 

xs 

F.P. 

OUTPUT 

LOCATION 

BRO 

F.P. 

D 

F.P.  (for  near  field) 

DV 

F.P. 

LDIFFR 

F.P. 

SP 

F.P. 

VCM 

F.P. 

VI 

F.P. 

XD 

F.P. 

6.  CALLING  ROUTINES: 
DIFPLT 

DPLRPL 

RFDFPT 

RPLDPL 

7.  CALLEO  ROUTINES: 
BTAN2 

NFO 
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NAME:  OFRFPT  (GTD) 

PURPOSE:  To  determine  the  ray  path  for  a  source  ray  which  is  dif¬ 
fracted  off  a  given  edge  on  a  given  plate  and  then  reflected  in  a 
given  direction  by  a  cylinder. 

METHOD:  The  diffraction  point  on  a  plate  edge  and  the  reflection 

point  on  an  elliptic  cylinder  for  a  diffracted-ref lected  ray  in  a 
given  observation  direction  are  calculated  via  an  iterative  process. 
Pertinent  geometry  is  shown  in  figure  1.  To  avoid  the  2ir-to-0  tran¬ 
sition  in  the  reference  $  value  is  rotated  to  place  this  branch 
cut  behind  the  cylinder  (shadowed  from  the  plate  edge),  and  the 
angular  variable  4>'  is  used  in  this  iteration  process  (see 
figure  2). 


z 


xs 


Figure  1.  Geometry  Used  in  DFRFPT  for  Ray  Diffracted  by 
Plate  and  Then  Reflected  by  the  Cylinder 


Figure  2.-  Illustrating  Placement  of  Branch  Cut  to  Avoid 
2ir-to-0  Transition  in  <t> 


The  iteration  begins  with  an  initial  diffracted-ref lected  ray  which 
satisfies  the  laws  of  diffraction  and  reflection.  Starting  data  are 
obtained  in  one  of  two  ways.  If  a  previous  call  to  this  routine 
(for  the  same  plate  edge  and  source)  has  successfully  found  the  dif¬ 
fracted-ref  lected  ray  path,  this  previous  path  is  used  as  starting 
data.  Otherwise  the  starting  reflection  point  is  defined  on  the  rim 
of  the  cylinder  closest  to  the  plate  edge  under  consideration.  Then 
the  corresponding  diffraction  point  is  found  by  enforcing  Snell's 
law  along  the  plate  edge.  The  first  method  is  preferable  to  the 
second  since,  in  general,  far-field  ray  directions  (D)  in  subsequent 
calls  to  DFRFPT  will  not  differ  greatly.  For  example,  in  calculat¬ 
ing  a  far-field  pattern  cut,  the  far-field  6  and  $  angles  will 
differ  by  only  a  few  degrees,  and  the  closeness  of  the  starting 
point  will  lead  to  fewer  iterations  in  order  to  obtain  convergence. 

The  path_of  the  starting  ray  defines  the  initiaj  cylinder  reflection 
point  (XR)  and  the  edge  diffraction  point  (XD).  In  almost  every 
instance,  the  resulting  far-field  radiation  direction  of  this  ray 
will  not  be  the  desired  radiation  direction.  The  angular  difference 
between  (8,  $)  of  the  starting  ray  (THOR,  PHORP)  and  the  (9,  <f> )  of 
the  desired  far-field  direction  (THSR,  PHSRP)  is  divided  into  a  num¬ 
ber  of  small  angular  steps  (A0 ,  A4> )  =  (DTSR,  DPSR).  This  iteration 
moves  the  reflection  and  diffraction  points  from  their  initial  posi¬ 
tions  in  small  steps  corresponding  to  angular  changes  (A9 ,  A$ )  so 
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that  when  the  iteration  is  complete  the  resulting  TIT  and  TP  will 
define  the  reflection  and  diffraction  points  that  give  a  far-field 
D -directed  ray.  The  number  of  steps  to  be  taken  (IVD)  is  deter¬ 
mined  from  the  starting  data.  Should  convergence  not  be  reached  in 
IVD  steps,  the  number  of  steps  is  doubled  (up  to  32  steps)  and  the 
iteration  repeated.  The  doubling  process  is  the  outer  loop  of  the 
flow  chart.  Should  convergence  be  reached  with  IVD  steps  and  the 
Snell's  law  error  be  significantly  smaller  than  required,  IVD  for 
the  plate  and  edge  under  consideration  is  halved  prior  to  exiting 
the  routine. 

The  iterations  which  step  through  the  (0,  ♦)  angles  by  (A0,  A$) 
correspond  to  the  inner  (DO  50)  loop  of  the  flow  chart.  Each  itera¬ 
tion  has  three  steps: 

(a)  Compute_the  diffraction  point  (TP)  from  known  reflection 
point  (XR),  source  point  (75)  and  edge  unit  vector  (V). 
This  is  done  by  a  simple  application  of  Snell's  law. 

(b)  The  change  in  cylinder  elliptic  angle  (DV)  and  z  coordi¬ 
nate  (DU)  are  computed  from  a  Taylor  series  expansion.  The 
expansion  requires  the  calculation  of  functions  and  par¬ 
tial  derivatives  of  equations  defining  elliptic  angle  (VR) 
and  z  coordinate  (UR)  in  terms  of  far-field  angles  (©,♦). 
The  equations  are  given  in  reference  A. 

(c)  The  coordinates  of  7?f  are  computed  from  the  new  values  of 
UR  and  VR. 

At  the  end  of  the  prescribed  number  of  iterations  the  initial  far- 
field  direction  has  been  stepped  slowly  to  the  desired  far-field 
direction,  and  the  initial  reflection-diffraction  points  have  been 
stepped  from  their  initial  values  to  candidate  reflection-diffrac¬ 
tion  points.  Snell's  law  is  then  applied  to  the  final  reflection 
and  final  diffraction  points  to  see  If  they  qualify  as  the  bona  fide 
ray  path.  If  the  error  is  sufficiently  small,  the  outer  loop  is 
exited.  Otherwise,  the  number  of  steps  is  doubled,  as  described 
above.  Should  the  routine  not  converge  within  32  steps  (the  maximum 
number),  a  warning  message  is  printed  on  LUPRNT. 


INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 

A  Radius  of  the  elliptical  cylinder  along  the 

x  axis  of  the  cylinder,  in  wavelengths 


B 


Radius  of  the  elliptical  cylinder  along  the 
y  axis  of  the  cylinder,  in  wavelengths 
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CSCE 

0 

DOC 

DE 

OOTP 

DPSR 

DR 

DRP 

DRT 

DTSR 

DU 

DV 

ERC 

ERCA 

ERCB 

FI 

FP 

FU 


Dot  product  of  ray  from  corner  of  edge  ME 
to  source  and  edge  unit  vector 

Propagation  direction  unit  vector  In  RCS 

This  array  contains  the  cosine  of  the 
starting  reflected  ray  theta  angle,  where 
DDC  (MP,  ME,  N)  =  COS  (TDCR  (MP,  ME,  N)) 

Dot  product  of  incident  ray  propagation 
direction  and  unit  edge  vector  of  edge  ME 

Test  variable  used  to  insure  reflection  was 
computed  properly 

Phi  angle  Increment  size 

Reflected  ray  propagation  direction 

X,Y  components  of  phi  polarization  unit 
vector  for  field  reflected  from  cylinder  in 
RCS 

X,Y,Z  components  of  theta  polarization  unit 
vector  for  field  reflected  from  cylinder 

Theta  angle  increment  size 

Change  in  UR  for  one  Iteration  using  Taylor 
series  expansion 

Change  In  VR  for  one  Iteration  using  Taylor 
series  expansion 

Error  detection  variable 

Error  detection  variable  for  reflection 
point 

Error  detection  variable  for  diffraction 
point 

Equation  governing  the  law  of  reflection 

Partial  derivative  of  FI  with  respect  to 
phi 

Partial  derivative  of  FI  with  respect  to  UR 
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FV  Partial  derivative  of  FI  with  respect  to  VR 

GI  Equation  governing  the  law  of  reflection 


GP 

Partial 

phi 

GT 

Partial 

theta 

GU 

Partial 

GV 

Partial 

derivative  of  GI  with  respect  to 

derivative  of  GI  with  respect  to 

derivative  of  GI  with  respect  to  UR 
derivative  of  GI  with  respect  to  VR 


IVD 

LDRC 

ME 

MJ 

MP 

PDCR 


PHCR 

PHOR 


PHORP 

PHSR 

PHSPR 


Number  of  steps  used  in  Iteration 

Set  true  If  starting  point  data  are  avail¬ 
able  from  previous  pattern  angle 

Edge  on  plate  MP  where  diffraction  occurs 

Starting  point  corner  number 

Number  of  plate  where  diffraction  occurs 

This  array  contains  angles  PDCR  (MP,  ME,  N) 
defining  the  phi  component  of  the  reflected 
ray  direction  of  rays  diffracted  by  edge  ME 
of  plate  MP  and  then  reflected  at  the 
starting  point  N  on  the  cylinder 

Phi  component  of  reflected  ray  direction 

Phi  component  of  reflected  ray  direction 
from  previous  time  DFRFPT  was  called  (or 
present  value  for  next  time  routine  is 
called) 

Phi  angle  of  reflected  ray  direction  in 

rotated  RCS  system  (branch  cut  placed 
behind  cylinder) 

Phi  angle  of  the  propagation  direction 

Phi  angle  of  reflected  ray  direction  in 

rotated  RCS  system  (branch  cut  placed 
behind  cylinder) 
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PHWR  The  phi  angle  location  of  the  center  of 

edge  ME  of  plate  MP  with  respect  to  the 
cylinder.  It  Is  used  to  specify  the  branch 
cut  displacement  angle  for  the  plate- 
diffracted,  cylinder-reflected  terms 


SNM  Magnitude  of  unnormal  1  zed  cylinder  normal 

SNPX  Partial  derivative  of  SNX  with  respect  to 

VR 


SNPY 


Partial  derivative  of  SNY  with  respect  to 
VR 


SNX,  SNY 

STP 

TDCR 


THCR 

THOR 

THSR 
TP  I 


X  and  Y  components  of  normal  to  cylinder 
in  RCS  components 

Number  of  steps  used  in  iteration 

This  array  contains  angles  TDCR  (MP,  ME,  N) 
defining  the  reflected  ray  theta  angle  of 
ray  directions  for  rays  diffracted  by  edge 
ME  of  plate  MP  and  then  reflected  by  start¬ 
ing  reflection  point  N  on  the  cylinder 

Theta  component  of  reflected  ray  direction 

Theta  component  of  reflected  ray  direction 
from  previous  time  DFRFPT  was  called  (or 
for  next  time  routine  Is  called) 

Theta  angle  of  the  propagation  direction 

2* 


UDC  This  array  contains  the  linear  value  UDC(N) 

defining  the  z  component  of  the  starting 
reflection  points  on  the  cylinder  axis. 
UDC(l)  Is  for  the  more  positive  z  location 
and  UDC(2)  Is  for  the  more  negative  z  loca¬ 
tion 

UR  Z  coordinate  of  the  cylinder  reflection 

point 


URO 


Z  component  of  starting  reflection  point 
location  on  cylinder 
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V  Edge  unit  vectors  for  all  edges  of  all 

plates 

VOC  This  array  contains  the  elliptical  angle 

VDC(MP,ME)  defining  the  starting  reflection 
point  on  the  cylinder  for  a  ray  diffracted 
from  edge  ME  of  plate  MP  and  then  reflected 
by  the  cylinder 

VI  Unit  vector  of  Incident  ray  on  cylinder 


VIM 

VIU 

VIV 

VR 

VRO 

VSO 

VSOM 

X 

XD 

XP 

XR 

XRU 

XRV 

XS 


Distance  from  diffraction  point  to  reflec¬ 
tion  point 

Partial  derivative  of  VI  with  respect  to  UR 

Partial  derivative  of  VI  with  respect  to  VR 

Elliptical  angle  defining  reflection  point 
on  cylinder  (2-D) 

Elliptical  angle  defining  starting  reflec¬ 
tion  point  on  cylinder 

XtY,Z  components  of  propagation  vector  of 
ray  from  source  to  diffraction  point 

Distance  from  source  to  the  diffraction 
point 

Corner  x,y,z  coordinates  of  all  plates  in 
RCS 


XtY,Z  components  of  diffraction  point 

location 

Point  along  line  drawn  through  edge  ME 
closest  to  source. 

X,Y,Z  components  of  reflection  point 

location  on  cylinder 

Partial  derivative  of  XR  with  respect  to  UR 

Partial  derivative  of  XR  with  respect  to  VR 
In  RCS 

XtY,Z  components  of  the  source  location  In 
wavelengths  In  the  RCS 
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5.  I/O  VARIABLES: 


INPUT 

LOCATION 

A 

/GEOMEL/ 

B 

/GEOMEL/ 

0 

/DIR/ 

DOC 

/BNDDCL/ 

LDRC 

F.P. 

ME 

F.P. 

MP 

F.P. 

PDCR 

/BNDDCL/ 

PHSR 

/dir/ 

PHWR 

/BRNPHW/ 

PI 

/PIS/ 

TDCR 

/BNDDCL/ 

THSR 

/DIR/ 

TPI 

/pis/ 

UDC 

/BNDDCL/ 

V 

/GEOPLA/ 

VDC 

/BNDDCL/ 

X 

/GEOPLA/ 

XS 

/SORINF/ 

OUTPUT 

LOCATION 

DE 

F.P. 

DOTP 

F.P. 
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LDRC 

F.P 

SNH 

F.P 

VI 

F.P 

VIM 

F.P 

VR 

F.P 

VSD 

F.P 

VSDM 

F.P 

XO 

F.P 

XR 

F.P 

6.  CALLING  ROUTINE: 
DPLRCL 

7.  CALLED  ROUTINE: 
None 


8.  REFERENCE: 

A.  R.J.  Marhefka,  "Analysis  of  Aircraft  Wlng-Mountd  Antenna  Pat¬ 
terns,"  Report  2902-25,  June  1976,  The  Ohio  State  University 
ElectroSclence  Laboratory,  Department  of  Electrical  Engineer¬ 
ing;  prepared  under  Grant  No.  NGL  36-008-138  for  National  Aero¬ 
nautics  and  Space  Administration. 
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PLACE  BRANCH  CUT 
BEHIND  CYLINDER 


PURPOSE:  To  calculate  the  incident  part  or  the  reflection  part  of 
the  wedge  diffraction  coefficient  or  the  corner  diffraction  coeffi¬ 
cient. 

METHOO:  This  subroutine  computes  either  the  Incident  part  or  the 
reflection  part  (depending  on  the  value  of  the  Input  variable  BET) 
of  the  wedge  or  corner  diffraction  coefficient  (depending  on  the 
value  of  the  logical  Input  variable  LOG).  The  Uniform  Geometrical 
Theory  of  Diffraction  (see  reference  A)  has  been  used  to  derive 
these  terms.  For  wedge  diffraction  (LOG  =  FALSE).  The  coefficient 
Is  given  as: 


DICOEF(R, B.sinB  >n) 


Icot  F  [kRa+  <B)1  +  cot  ( ^)  F  fk 


F(x)  Is  the  transition  function.  It  Is  contained  mostly  In  FA  with  a 
constant  contained  In  COTA. 

n  Is  the  wedge  number  FN. 

For  the  corner  diffraction  term  (LOG  *  .TRUE.),  the  coefficient  Is  given 
as  (see  reference  8): 


DICOEF(R, 0,sin6  .  n,R  ) 
o  c 


tful"  inB0  jC0t(!^)  F[kR*+H  « I  *  [kR^r 


COTA* FA 


’+VBc> 


BABS ( FFCT( R*A*DELU) )  , 
where  BABS  is  a  function 
subprogram  to  give  the 
absolute  value  of  the 
argument,  and  FFCT  is  a 
function  subprogram  to 
return  the  transition 
function  (See  BABS  and 
FFCT) 


Used  in  UPPI  calculation  for  N+ 
part  of  diffraction  coefficient 


(&)  |f[ 


kRca(t+B0-Bc) 


HI- 


COTA* FA 


BABS(FFCT(R*A*DELU) ) , 
where  BABS  is  a  function 
subprogram  to  give  the 
absolute  value  of  the 
argument,  and  FFCT  is  a 
function  subprogram  to 
return  the  transition 
function  (See  BABS  and  FFCT) 


Used  in  UNPI  calculation  for  N' 
part  of  diffraction  coefficient 


where  Rr  Is  the  corner  distance  parameter  and  0C  is  the  polar  angle 
measured  from  the  corner.  Rc  and  Be  are  contained  in  DELU  which  is 


measured  from  the  corner.  Kc  and  Be  are 
computed  from  DELL,  an  Input  formal  parameter, 
geometry  Is  given  In  figure  1. 


An  illustration  of  the 
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4.  INTERNAL  VARIABLES: 
VARIABLE 
A 

ACS 

ANG 

BET 

BOTL 

C 

COM 

COTA 

DEL 

DELL 


DEFINITION 

Angular  function  for  transition  function 
Computational  variable  In  calculation  of  A 
BET  in  radians 

Angular  argument  of  diffraction  coefficient 
(B,  PH+PHP,  or  PH-PHP)  in  degrees 

Argument  of  transition  function 

Real  part  of  Fresnel  integral 

Constant  for  diffraction  coefficient 

Cotangent  times  the  square  root  of  the  A 
function 

Corner  part  of  argument  for  the  corner 
transition  function  correction  term 

Part  of  argument  for  the  corner  transition 
function  correction  term 


DELU  Inverse  of  DEL 

DEM  4*PI*FN*SIN(B0) 

DIR  Incident  or  reflection  part  of  diffraction 

coefficient 


DN 

DNS 

EX 

FA 


Integer  which  most  nearly  satisfies  the 
equation,  2*PI*FN+DN-BET=PI  OR  -PI 

Computational  variable 

CEXP  (J*K*R*A) 

Transition  function  without >/a 


FN  Wedge  angle  number 

LOG  A  logical  variable  set  true  if  the  corner 

diffraction  coefficient  is  to  be  computed 
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N  Computational  variable 

PI  TT 


R 

RAG 

RPD 

S 

SBO 

SGN 

SQR 


Olstance  parameter  which  is  a  function  of 
source  type,  incidence  angle,  source-to- 
diffraction  point  separation  distance 

Argument  of  cotangent  term 

The  conversion  factor  for  converting 
angular  measurements  in  degrees  to  radians 
(=  PI/180.  =  0.0174532925) 

Imaginary  part  of  Fresnel  integral 

Sine  of  80 

Sign  of  DNS 

>/  (2*PI*R) 


TOP 


The  complex  constant  -CEXP(-J*PI/4) . 


TP  I 


2m 


TS 

TSIN 

UNPI 

UPPI 


Absolute  value  of  TSIN 

Sine  of  argument  of  cotangent  term 

N-  component  of  DIR 

N+  component  of  DIR 


I/O  VARIABLES: 

A.  INPUT  LOCATION 

BET  F.P. 


DELL 


F.P. 


FN  F.P. 

LOG  F.P. 

PI  /PIS/ 
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R 

F.P. 

RPD 

/PIS/ 

SBO 

F.P. 

TOP 

/TOPD/ 

TPI 

/PIS/ 

OUTPUT 

LOCATION 

DIR 

F.P. 

6.  CALLING  ROUTINES: 
DIFPLT 

DPLRPL 

DW 

RPLOPL 

7.  CALLED  ROUTINES: 
BABS 

BEXP 

FFCT 


FRNELS 


8.  REFERENCES: 

A.  R.  G.  Kouyoumjlan  and  P.  H.  Pathak,  "A  Uniform  Geometrical 
Theory  of  Olffraction  for  an  Edge  In  a  Perfectly  Conducting 
Surface,"  Proc.  IEEE,  Vol.  62,  November  1974,  pp  1448-1461. 

B.  W.  D.  Burnside  and  P.  H.  Pathak,  "A  Corner  Diffraction 
Coefficient,"  to  appear. 
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N+  PART 
RACTION 

I  ENT 

r 

COMPUTE 
OF  OIFFI 
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1.  NAME:  DIFPLT 


(6T0) 


2.  PURPOSE:  To  determine  the  unobstructed  diffracted  field  from  edge 
ME  of  plate  MP  from  a  unit  source.  Slope  diffracted  fields  are 
included  if  the  user  requested  them.  Corner  diffracted  fields  are 
included  for  far-field  calculations  only  if  the  corner  diffraction 
was  requested. 

3.  METHOO:  DIFPLT  is  the  driver  routine  which  directs  all  the  ray 
tracing,  physics  and  field  calculations  for  the  diffracted  field  off 
edge  ME  of  plate  MP  from  a  unit  source  In  the  given  far-field  direc¬ 
tion  or  to  a  given  near-field  observation  point.  The  slope  and 
corner  diffraction  terms  are  included  also.  The  related  geometry  is 
shown  in  figure  1.  A  detailed  explanation  of  the  fields  calculated 
is  given  in  reference  A.  The  code  first  Initializes  the  fields  to 
zero,  then  determines  where  the  diffraction  point  is  by  calling  sub¬ 
routine  DFPTWO.  If  diffraction  does  not  occur,  debug  information 
(if  requested)  is  printed  on  file  LUPRNT  and  control  returns  to  the 
calling  routine.  If  a  diffraction  point  is  found  on  the  tangent  to 
the  plate  edge,  but  it  is  not  within  the  corners,  it  is  set  at  the 
closest  corner  (see  figure  2).  Then  the  ray  path  is  checked  for 
obstructions  by  first  checking  the  ray  from  the  diffraction  point  in 
the  far-field  observation  direction  or  to  the  near-field  observation 
point,  and  then  checking  the  ray  from  the  source  to  the  diffraction 
point.  If  either  path  is  obstructed,  the  code  checks  to  see  if  dif¬ 
fractions  for  this  edge  have  been  found  before  and.  If  so,  identi¬ 
fies  the  edge  as  possibly  double  diffracting.  Then  a  flag  Is  set  to 
Indicate  a  diffracted  field  was  not  found  this  time.  Debug  informa¬ 
tion  is  printed  (If  requested)  and  control  then  returns  to  the 
calling  routine.  If  the  ray  path  is  clear  of  objects,  then  diffrac¬ 
tion  angles  from  different  orientations,  polarization  unit  vectors, 
and  other  related  geometry  are  calculated. 

The  distance  parameter  (TPP)  needed  for  the  edge  diffracted  field  to 
be  continuous  at  the  shadow  and  reflection  boundaries  is  given  as: 


TPP  =  S  sin(B0)  ,  for  far  field 


where 


_  S  S  s1n(Bor  , 
ypp  _  _ _2 _  ,  for  near  field 

S  +  s' 


S  =  SP  *  distance  from  source  to  diffraction  point 
S  =  SNF  *  distance  from  diffraction  point  to  observation  point 
sln(B-)  =  SBO  *  sine  of  the  diffraction  angle  (the  angle  the  dlf- 
0  fracted  ray  makes  with  the  edge). 
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Figure  1.  Edge  Diffraction  Geometry 


OIFPLT  (GTO) 


Figure  2.  Far-fleld  Corner  Diffraction  Geometry 


(The  distance  parameter  Is  needed  In  the  diffraction  coefficient 
subroutines  DW  and  DICOEF.)  The  source  field  pattern  factor,  based 
on  the  source  location.  Is  found  by  calling  subroutine  SOURCE.  If 
slope  diffraction  was  requested,  the  Incident  slope  field  pattern 
factor  Is  found  by  calling  subroutine  SOURCP.  Then  the  phase  factor 
Is  computed;  It  refers  a  far-fleld  electric  field  back  to  the 
reference  coordinate  system  (RCS)  origin,  and  for  near-field  calcu¬ 
lations  It  Includes  the  spherical  wave  spread  factor. 

The  edge  diffraction  coefficients  for  the  hard  and  soft  boundaries 
are  computed  by  calling  subroutine  DW.  Then  the  perpendicular  and 
parallel  components  of  the  diffracted  field  are  computed  by  multi¬ 
plying  the  source  field  pattern  factor,  the  phase  factor,  and  the 
diffraction  coefficients.  If  slope  diffraction  was  requested.  Its 
field  Is  added.  The  field  is  converted  to  theta  and  phi  components 
In  the  RCS  and  Is  then  converted  to  x,  y,  z  components  and  accumu¬ 
lated  In  subroutine  XYZFLD. 

If  corner  diffracted  fields  were  not  requested,  debug  information 
(If  requested)  Is  printed  on  file  LUPRNT  giving  the  diffracted  field 
magnitude  and  theta  and  phi  components.  Control  Is  then  returned  to 
the  calling  routine. 

If  corner  diffraction  was  requested,  far-field  diffracted  fields 
only  are  computed  for  one  corner  on  edge  ME  and  then  for  the  other 
corner.  Subroutine  DICOEF  is  called  for  the  corner  diffraction 
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coefficients.  The  fields  are  calculated  In  parallel  and  perpen¬ 
dicular  components  and  then  converted  to  theta  and  phi  components  In 
the  RCS.  The  field  Is  then  converted  to  x(  y,  z  components  and 
added  to  the  fields  already  accumulated  by  calling  subroutine 
XYZFLO. 

The  code  ends  with  printing  debug  information  (if  requested)  on  file 
LUPRNT. 

4.  INTERNAL  VARIABLES 


VARIABLE  DEFINITION 


ADN 

AFN 

BETN 

BETP 

BO 

BOP 

CNP 

CORN 


Dot  product  of  vector  from  plate  HP  to  the 
source  and  the  plate  unit  normal 

Wedge  angle  number 

Difference  in  diffracted  and  incident  phi 
angles 

Sum  of  diffracted  and  incident  phi  angles 

Diffracted  field  beta  polarization  unit 
vector  (in  edge-fixed  coordinate  system)  in 
RCS  components 

Incident  field  beta  polarization  unit 
vector  (in  edge-fixed  coordinate  system)  in 
RCS  components 

Cosine  of  half  wedge  angle 

Corner  diffraction  coefficient 


CPH 


Cosine  of  PSR 


CPHO  Cosine  of  PSOR 

CTH  Cosine  of  THR 


CTHP  Cosine  of  THPR 

DEL  Parameter  used  in  transition  function 

DH  Diffraction  coefficient  for  hard  boundary 

condition 

DHIT  Distance  from  source  to  nearest  hit  point 

(from  subroutine  PLAINT  or  CYLINT) 
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DPH 

Slope  diffraction  coefficient  for  hard 
boundary  condition 

DPR 

Degrees  per  radian  conversion  factor 

DPS 

Slope  diffraction  coefficient  for  soft 
boundary  condition 

DS 

Diffraction  coefficient  for  soft  boundary 
condition 

DV 

Dot  product  of  edge  vector  and  propagation 
direction  unit  vector,  D,  which  is  the 
cosine  of  beta 

ECBI 

Edge  diffraction  coefficient  (from  sub¬ 
routine  DICOEF)  for  incident  diffracted 
field  modified  for  corner  diffraction 

ECBR 

Edge  diffraction  coefficient  (from  sub¬ 
routine  DICOEF)  for  reflected  diffracted 
field  modified  for  corner  diffraction 

ECPH 

Phi  component  of  corner  diffracted  E-field 

ECTH 

Theta  component  of  corner  diffracted 
E-field 

EDPH 

Phi  component  of  edge  diffracted  E-field 

EDPL 

Component  of  diffracted  field  parallel  to 
the  edge 

EDPR 

Component  of  diffracted  field  perpendicular 
to  the  edge 

EDTH 

Theta  component  of  edge  diffracted  E-fleld 

EF 

Theta  component  of  corner  diffracted  field 
in  RCS 

EG 

Phi  component  of  corner  diffracted  field  in 
RCS 

EIPL 

Component  of  Incident  field  parallel  to  the 
edge 

EIPLP 

Pattern  factor  for  component  of  source 
(Incident)  slope  field  parallel  to  the  edge 
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EIPR 

Component  of  Incident  field  parallel  to  the 
edge 

EIPRP 

Pattern  factor  for  component  of  the  source 
(Incident)  slope  field  perpendicular  to  the 
edge 

EIX,EIY,EIZ 

Source  pattern  factors  for  x,y,  and  z 
components  of  Incident  E-fleld 

EXPH 

Complex  phase  term  (refer  phase  to  RCS 
origin) 

FN 

Wedge  angle  number 

FNN 

Wedge  angle  Indicator 

FNP 

Angle  exterior  to  wedge  In  degrees 

GAM 

Dot  product  of  the  propagation  direction 
and  the  vector  from  the  origin  to  the  dif¬ 
fraction  point 

100 

Double  diffraction  shadow  boundary  Identi¬ 
fication  array 

ISN 

Sign  change  variable 

LCORNR 

Logical  variable  set  true  If  corner  dif¬ 
fraction  Is  requested 

LDIF 

Logical  variable  set  false  if  the  edge  tan¬ 
gent  diffraction  point  does  not  lie  on  the 
edge  between  the  two  corners.  (If  this 
happens  the  diffraction  point  Is  moved  to 
the  nearest  corner  and  only  corner  diffrac¬ 
tion,  if  requested,  is  computed.) 

LDIFFR 

Logical  variable  set  true  If  edge  diffrac¬ 
tion  occurred 

LHIT 

Set  true  if  ray  hits  a  plate  or  cylinder 
(from  subroutine  PLAINT  or  CYLINT) 

LSLOPE 

Logical  variable  set  true  If  slope  diffrac¬ 
tion  Is  requested 

MC 

Corner  at  end  of  edge  ME 

ME 

Edge  on  plate  MP  where  diffraction  occurs 
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MP 

Plate  for  which  diffraction  occurs 

N 

DO  loop  variable 

PO 

Dot  product  of  edge  blnormal  and  diffracted 
ray  propagation  direction 

PH 

Diffracted  field  phi  polarization  unit 
vector  (in  edge-fixed  coordinate  system)  in 
RCS  components 

PHIR 

Phi  component  of  incident  ray  propagation 
direction  in  RCS 

PHO 

Incident  field  phi  polarization  unit  vector 
(in  edge-fixed  coordinate  system)  in  RCS 
components 

PHSR 

Phi  component  of  diffracted  ray  propagation 
direction  in  RCS 

PP 

Negative  dot  product  of  edge  binormal  and 
incident  ray  propagation  direction 

PS 

PSR*DPR 

PSD 

Oiffracted  ray  phi  angle  in  edge-fixed 
coordinate  system 

PSO 

PS0R*DPR 

PSOD 

Incident  ray  phi  angle  in  edge- fixed  coor¬ 
dinate  system 

PSOR 

Phi  component  of  incident  ray  direction  in 
edge-fixed  coordinate  system 

PSR 

Phi  component  of  diffracted  ray  propagation 
direction  in  edge-fixed  coordinate  system 

QO 

Dot  product  of  plate  normal  and  diffracted 
ray  propagation  direction 

Qi 

Negative  of  dot  product  of  plate  normal  and 
incident  ray  propagation  direction 

RH 

Magnitude  of  vector  from  corner  ME  to 
source 
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RX,RY,RZ 

X,Y,  and  Z  components  of  vector  from  corner 
MC  to  source 

SBO 

Sine  of  BO,  the  angle  the  diffracted  ray 
makes  with  the  edge  unit  vector 

SNF 

Di-stance  between  near-field  observation 
point  and  diffraction  point 

SNP 

Sine  of  half  wedge  angle 

SP 

Distance  from  source  to  diffraction  point 
(from  subroutine  DFPTWD) 

SPH 

Sine  of  PSR 

SPHO 

Sine  of  PSOR 

SPP 

Distance  from  source  to  diffraction  point 

STHR 

Sine  of  THR 

TERM 

Coefficient  of  corner  diffracted  fields 

THIR 

Theta  component  of  incident  ray  direction 
in  reference  coordinate  system 

THPR 

Angle  diffracted  ray  makes  with  edge 

THR 

Angle  between  edge  unit  vector  and  ray  from 
source  to  corner  MC 

TPP 

Distance  parameter  used  in  calculating  dif¬ 
fraction  coefficients 

VECT 

Vector  used  to  move  diffraction  point  off 
edge  for  shadowing  tests 

VI 

Unit  vector  of  incident  ray  propagation 
direction  (from  subroutine  DFPTWD) 

VIP 

Unit  vector  from  source  to  diffraction 
point 

VMG 

Distance  along  the  edge  from  first  corner 
of  edge  to  diffraction  point 

VXS 

3x3  matrix  defining  the  source  coordinate 
system  axes 
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xc 

Corner  location  for  corner  diffraction 

xo 

Diffraction  point  (calculated  in  subroutine 
DFPTWD) 

XOP 

Diffraction  point  (used  for  shadowing 
tests) 

XS 

Source  location  in  RCS 

xss 

Source  location 

ZP 

Dot  product  of  diffracted  ray  propagation 
direction  unit  vector  D  and  vector  from 
diffraction  point  to  corner  MC 

I/O  VARIABLES: 

A. 

INPUT 

LOCATION 

D 

/DIR/ 

DP 

/THPHUV/ 

DPR 

/PIS/ 

DT 

/THPHUV/ 

FLDPT 

/NEAR/ 

FNN 

F.P. 

IANG 

/DOUBLE/ 

ID 

/DOUBLE/ 

I  DO 

/DOUBLE/ 

LCORNR 

/LOGDIF/ 

LDEBUG 

/TEST/ 

LNRFLD 

/NEAR/ 

LSLOPE 

/LOGDIF/ 

LSURF 

/SURFAC/ 

LUPRNT 

/ADEBUG/ 
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ME 

F.P. 

MEP 

/GEOPLA/ 

MP 

F.P. 

MPH 

/HITPLT/ 

PHSR 

/DIR/ 

PI 

/PIS/ 

THSR 

/DIR/ 

TP  I 

/PIS/ 

V 

/GEOPLA/ 

VMAG 

/EDMAG/ 

VN 

/GEOPLA/ 

VP 

/GEOPLA/ 

VXS 

/SORINF/ 

X 

/GEOPLA/ 

XS 

/SORINF/ 

B.  OUTPUT 

LOCATION 

ECPH 

F.P. 

ECTH 

F.P. 

EDPH 

F.P. 

EDTH 

F.P. 

CALLING  ROUTINE: 

GTDDRV 

CALLED  ROUTINE: 

ASSIGN 

PLAINT 

BEXP 

SMAGNF 
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BTAN2 

CYLINT 

DFPTWD 

DICQEF 

DW 

FFCT 

NFD 

8.  REFERENCE: 

A.  R.  G. 
Theory 
Surface 


SOURCE 

SOURCP 

STATIN 

STATOT 

TPNFLD 

WLKBCK 

XYZFLO 

Kouyoumjian  and  P.  H.  Pathak,  "A  Uniform  Geometrical 
of  Diffraction  for  an  Edge  in  a  Perfectly  Conducting 
Proc.  IEEE,  Vol.  62,  November  1974,  pp.  1448-1461. 
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1.  NAME:  DMPDRV  (GTD,  INPUT,  MOM,  OUTPUT) 

2.  PURPOSE:  Execute  an  expression. 

3.  METHOD:  DMPDRV  will  execute  simple  expressions  with  no  precedence 
on  the  operators.  Precedence  can  be  obtained  by  using  parentheses. 
The  argument  list  must  be  operand,  operator,  operand  for  all 
operations. 

Example  1:  FRQ  =  300.  (operandl  operator  operand2) 

The  first  operator?  must  be  an  equal  sign.  The  operator  precedence 
Is  from  right  to  left  for  all  operations. 

Example  2:  FRQ  =  N*2  +  10 

The  10  Is  added  to  the  2  before  the  N  Is  multiplied.  Precedence  can 
be  obtained  by  doing  the  following: 

Example  3:  FRQ  *  (N*2)  +  10 

DMPDRV  uses  right  to  left  precedence  on  all  operations  starting  with 
the  Innermost  parentheses. 

4.  INTERNAL  VARIABLE: 


VARIABLE 

DEFINITION 

ADDOPR 

Logical  operator  flag  for  ADD 

C 

Resultant  of  one  of  four  operations 

CMAG 

Magnitude  of  C 

CMPLX1 

Logical  flag  of  first  symbol 

CMPLX2 

Logical  flag  of  second  symbol 

C0P1 

Complex  operand  one 

C0P2 

Complex  operand  two 

DIVOPR 

Logical  operator  flag  for  division 

EXPOPR 

Logical  operator  flag  for  exponentiation 

IBITR 

Attribute  bit  for  a  complex  number 

IBIT1 

Attribute  word  for  the  first  symbol 

IBIT2 

Attribute  word  for  the  second  symbol 

ILP 

Index  to  left  parenthesis 
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IOPR 

IPAREN 

IRP 

LITTYP 

LOCARG 

LOCLIT 

MATOP1 

MAT0P2 

MULOPR 

NAMFIL 

NAMOPR 

NAMOP1 

NAMOP2 

NAMSYM 

NCOL1 

NCOL2 

NDXARG 

NDXKYW 

NROW1 

NROW2 

NXTARG 

R 

ROP1 

ROP2 


Operator  for  matrix  operations 

Parentheses  counter 

Index  to  right  parenthesis 

Type  of  argument  In  the  literal  table 

Field  pointer 

Pointer  to  the  literal  table 

Logical  flag  for  matrix  operand  one 

Logical  flag  for  matrix  operand  two 

Logical  operator  flag  for  multiplication 

File  name  where  the  resultant  matrix  is 
stored 

Operand  name 
Name  of  operand  one 
Name  of  operand  two 
Symbol  name 

Number  of  columns  in  operand  one 

Number  of  columns  in  operand  two 

Pointer  to  the  literal  table 

Index  to  keyword  array 

Number  of  rows  in  operand  one 

Number  of  rows  in  operand  two 

Pointer  to  the  first  operand  after  the 
equal  sign 

Location  of  real  operation  resultant 
Real  operand  one 
Real  operand  two 

Logical  operator  flag  for  subtraction 
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I/O  VARIABLES: 


A.  INPUT 

LOCATION 

FLTLIT 

/PARTAB/ 

INTARG 

/ARGCOM/ 

NOATBL 

/PARTAB/ 

NPDATA 

/PARTAB/ 

NUMARG 

/ARGCOM/ 

B.  OUTPUT 

LOCATION 

NDATBL 

/PARTAB/ 

CALLING  ROUTINE: 

TSKXQT 

CALLED  ROUTINES: 

ASSIGN 

PUTKWV 

CLSFIL 

PUTSYM 

CONVRT 

STATIN 

ERROR 

STATOT 

GETKWV 

SYMDEF 

GETSYM 

WLKBCK 

IBITCK 


ZZXDUM 


(GTD,  INPUT,  MOM,  OUTPUT) 


1.  NAME:  DPI  (GTD) 

2.  PURPOSE:  To  calculate  the  Incident  part  or  the  reflection  part  of 
the  wedge  slope  diffraction  coefficient. 

3.  METHOD:  This  subroutine  computes  either  the  Incident  part  or  the 
reflection  part  of  the  wedge  slope  diffraction  coefficient  depending 
upon  the  value  of  BET.  This  coefficient  Is  based  upon  the  Uniform 
Geometrical  Theory  of  Olffraction  (see  reference  A  and  equation  15 
of  reference  B).  The  geometry  associated  with  the  calculation  of 
the  coefficient  is  shown  in  figure  1.  The  slope  diffraction  coeffi¬ 
cient  is  given  as: 


DPI(R,8,sin8  >n)  = 


~~2eJ^/4 -  csc2(^)F  [kRa+(B)J  -  csc2(2^)Fb lkRa'( 8)  1 

4nV2nk  sinfi^  zn  8  Zn  8 


DPIR 


COM  = 

DEM 


CSCA*FPA 
Used  in  UPPI 
Calculation  for  ft 
Part  of  Coefficient 


CSCA*FPA 
Used  In  UNPI 
Calculation  for  N“ 
Part  of  Coefficient 


where  B  = 


U  -  ♦ 

|  $  +  $ 1 . 


for  the  incident  case 
for  the  reflection  case 


(denoted  by  BET), 


a±(B) 


2cos2  (  -  P  ) 


(denoted  by  A) 


N*  are  the  integers  which  most  nearly  satisfy  (by  truncating  the  floating 
point  values  for  N*)  the  equations: 


2itnN+  -  8  =  tt 


2irnN"  -  B  =  -it. 


Fs(x)  =  2jx  [1  -  F(x) ]  Is  the  transition  function.  It  is  contained  in 
FPA  except  for  a  constant  which  Is  Included  in  the  calculation  for  CSCA. 
The  wedge  angle  number  n  Is  denoted  by  FN. 
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The  negative  value  of  TOP,  which  Is  contrary  to  theory.  Is  compensated 
for  in  subroutine  SOURCP. 


4.  INTERNAL  VARIABLES: 
VARIABLE 
A 

ANG 

BET 

BOTL 

C 

COM 

CSCA 

DEM 

DN 

DNS 

DPIR 

EX 

FN 

FPA 


DEFINITION 

Angular  function  for  transition  function 
BET  In  radians 

Angular  argument  of  diffraction  coefflcent 
(B,  PH+PHP  or  PH-PHP) 

Argument  of  transition  function 

Real  part  of  Fresnel  Integral 

Constant  for  slope  diffraction  coefficient 

Cosecant  times  the  A  function 

8*PI*FN*FN*SIN(B0) 

Integer  which  most  nearly  satisfies  the 
equation,  2*PI*FN*DN-BET=PI  or  -PI 

Computational  variable 

Incident  or  reflection  part  of  slope 
diffraction  coefficient 

CEXP(J*K*R*A) 

Wedge  angle  number 

Slope  transition  function  without  the  A 
function 
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PI 


N 

R 


RAG 


Computational  variable 

Distance  parameter  which  Is  a  function  of 
source  type,  incidence  angle,  and  source- 
to-dlffractlon  point  separation  distance 
and  Is  such  that  the  field  is  continuous  at 
shadow  and  reflection  boundaries 

Argument  of  cosecant  term 


RPO 


Radians  per  degree,  n/180 


S 


Imaginary  part  of  Fresnel  integral 


SBO 


Sine  of  B 


SGN 


Sign  of  DNS 


TOP 


The  complex  constant,  -C£XP(-J*PI/4) 


TPI 


2tt 


TS 


TSIN  squared 


TSIN 


Sine  of  argument  of  cosecant  term 


UNPI 


N-  component  of  DPIR 


UPPI 


N+  component  of  DPIR 


I/O  VARIABLES: 


INPUT 

LOCATION 

BET 

F.P. 

FN 

F.P. 

PI 

/PIS/ 

R 

F.P. 

RPD 

/PIS/ 
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SBO 

F.P. 

TOP 

/TOPD/ 

TPI 

/PIS/ 

OUTPUT 

LOCATION 

DPIR 

F.P. 

CALLING  ROUTINE: 


CALLED  ROUTINES: 

BEXP 

FRNELS 

REFERENCES: 

A.  Y.  M.  Hwang  and  R.  G.  Kouyoum j i an ,  "A  Dyadic  Diffraction 

Coefficient  for  an  Electromagnetic  Wave  Which  is  Rapidly 
Varying  at  an  Edge,"  USNC-URSI  1974  Annual  Meeting,  Boulder, 
CO.,  Oct.  1974. 

B.  R.  G.  Kouyoumjlan  and  P.  H.  Pathak,  "A  Uniform  Geometrical 

Theory  of  Diffraction  for  an  Edge  in  a  Perfectly  Conducting 
Surface,"  Proc.  IEEE,  Vol.  62,  November  1974,  pp.  1448-1461. 
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1.  NAME:  DPLRCL  (GTD) 

2.  PURPOSE:  To  compute  the  unobstructed  electric  field  from  a  unit 
source  ray  diffracted  by  edge  ME  of  plate  MP  and  then  reflected  by  a 
cylinder  in  the  given  far-field  observation  direction  or  to  a  given 
near-field  observation  point. 

3.  METHOO:  DPLRCL  is  the  driver  routine  which  directs  all  the  ray 
tracing,  physics  and  field  calculations  for  determining  the  electric 
field  diffracted  by  a  plate  edge  and  reflected  from  a  cylinder  in 
the  given  far-field  observation  direction  or  to  the  given  near-field 
observation  point.  The  field  diffracted  by  the  plate  edge  is  found 
using  the  Uniform'  Geometrical  Theory  of  Diffraction.  (See 
reference  A).  This  causes  an  astigmatic  tube  of  rays  to  be  incident 
on  the  cylinder.  The  field  reflected  by  the  cylinder  is  found  using 
geometrical  optics  (see  reference  A).  Pertinent  geometry  is  shown 
in  figure  1 . 


XS 


Figure  1.  Illus. ration  of  a  Ray  Diffracted  by  a  Plate  Edge 
and  then  Reflected  by  the  Cylinder 
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The  code  first  checks  to  see  if  edge  ME  of  plate  MP  is  formed  by 
intersecting  plates.  If  it  is,  the  fields  are  set  to  zero.  Debug 
information  (if  requested)  is  computed  and  printed  on  file  LUPRNT. 
Control  is  then  returned  to  the  calling  routine.  If  edge  ME  is  not 
on  intersecting  plates,  the  code  determines  the  ray  path  for  the 
plate  diffracted-cyl inder  reflected  field.  This  is  done  differently 
depending  upon  whether  far  field  or  near  field  was  requested:  if 
far  field  was  requested,  the  code  makes  a  quick  check  to  see  if 
diffraction  is  possible.  If  it  is  not,  a  flag  is  set  to  Indicate 
that  no  starting  data  are  available  for  the  next  time  DPLRCL  is 
called.  The  field  is  set  to  zero.  Debug  information  is  printed  if 
it  was  requested,  and  control  is  returned  to  the  calling  routine. 
If  it  is  possible  for  diffraction  to  occur,  subroutine  DFRFPT  is 
called  to  compute  the  diffracted-ref lected  ray  path.  For  near 
field,  the  code  interchanges  the  source  and  observation  point  loca¬ 
tions.  Subroutine  RFDFPT  is  called  to  compute  the  ray  path  which 
would  be  reflected  from  a  cylinder  and  then  diffracted  by  a  plate. 
After  the  ray  path  has  been  found,  subroutine  DPLRCL  switches  the 
source  and  observation  point  locations  back  to  their  original  posi¬ 
tions.  The  unit  direction  vectors  are  also  negated  so  that  the 
proper  direction  for  a  plate  diffracted-cyl inder  reflected  field  can 
be  found.  Now  for  both  near  field  and  far  field  the  code  checks  to 
make  sure  that  reflection  and  diffraction  did  occur.  If  they  did 
not,  the  fields  are  set  to  zero  and  debug  information  is  printed  (if 
requested).  Control  is  returned  to  the  calling  routine.  If  the 
diffraction  and  reflection  are  legal  (by  satisfying  Snell's  Law), 
the  code  then  checks  the  total  ray  path  for  any  obstructions.  If  it 
is  obstructed,  the  fields  are  set  to  zero,  and  debug  information  is 
printed.  Control  is  returned  to  the  calling  routine.  If  the  ray 
path  is  clear,  field  computations  can  begin. 

The  total  diffracted-ref lected  field  is  found  by  first  determining 
the  fields  incident  upon  the  diffraction  point.  The  source  field 
pattern  factor  is  found  by  calling  subroutine  SOURCE  and  the 
diffracted  field  is  found.  The  diffraction  coefficient  is  deter¬ 
mined  by  calling  subroutine  DW.  The  phase  factor  and  ray  spreading 
radii  for  the  field  incident  on  the  cylinder  are  computed  and 
combined  with  the  diffraction  coefficient  and  the  field  incident 
upon  the  plate  to  determine  the  diffracted  field.  Geometrical 
optics  is  used  to  determine  the  reflection  parameters  and  reflected 
field.  A  phase  factor  and  ray  spreading  factors  for  the  diffracted- 
reflected  field  are  found  and  combined  with  the  field  incident  upon 
the  cylinder  to  determine  the  total  diffracted-ref lected  field. 
This  field  is  given  in  theta  and  phi  components.  Subroutine  XYZFLD 
is  called  to  compute  the  x,  y,  z  components  of  the  total  field  and 
to  accumulate  this  field  with  other  fields  from  previous  inter¬ 
actions.  The  total  diffracted-ref lected  field  has  the  form  shown  on 
pages  163  and  164  of  reference  B. 
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If  debug  Information  Is  requested,  the  field  magnitude  Is  computed. 
The  field  magnitude,  theta  and  phi  components  are  printed  on  file 
LUPRNT.  Control  Is  then  returned  to  the  calling  routine. 

4.  INTERNAL  VARIABLES: 


VARIABLE  DEFINITION 


BO 

BOP 

00 

001 

DD2 

OH 


Diffracted  field  polarization  unit  vector 
parallel  to  edge 

Incident  field  polarization  unit  vector 
parallel  to  edge 

Distance  from  z  axis  to  cylinder  reflection 
point  in  the  x-y  plane 

Dot  product  of  source  ray  diffracted  from 
plate  tangent  to  tangent  point  1  of 
cylinder  and  propagation  direction  (2-0) 

Dot  product  of  source  ray  diffracted  from 
plate  tangent  to  tangent  point  2  of 
cylinder  and  propagation  direction  (2-0) 

Diffraction  coefficient  for  hard  boundary 
condition 


OHIT 

00TP 

0PH 

OPS 

OS 


Distance  to  hit  point  on  plate 

Test  variable  used  to  determine  If  reflec¬ 
tion  is  computed  properly 

Slope  diffraction  coefficient  for  the  hard 
boundary  condition 

Slope  diffraction  coefficient  for  the  soft 
boundary  condition 

Olffraction  coefficient  for  soft  boundary 
condition 


DV  Dot  product  of  incident  ray  propagation 

vector  and  edge  unit  vector 

EDPH  Phi  component  of  edge-diffracted  reflected 

E-fleld 

EDPL  Component  of  diffracted  field  parallel  to 

the  edge 
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EDPR 

EDTH 


Component  of  diffracted  field  perpendicular 
to  the  edge 

Theta  component  of  edge-diffracted 
reflected  E-field 


EF 

EG 

EIPL 

EIPR 

EIX,EIY,EIZ 

ERPP 

ERPR 

ERX,ERY,ERZ 


Source  field  pattern  factor  theta  component 

Source  field  pattern  factor  phi  component 

Component  of  incident  field  parallel  to  the 
edge  or  plane  of  incidence 

Compontnt  of  incident  field  perpendicular 
to  the  edge  or  plane  of  incidence 

Source  pattern  factors  for  x,y,  and  2 
components  of  incident  E-field 

Component  of  reflected  E-field  parallel  to 
plane  of  incidence 

Component  of  reflected  E-field  perpen¬ 
dicular  to  plane  of  incidence 

X,Y,Z  components  of  reflected  field  in  RCS 


EXPH 


Complex  phase  and  spreading  factor 


FN 

LDRC 

LHIT 


Wedge  angle  number 

Set  true  if  starting  point  information 
exists  from  previous  pattern  angle 

Set  true  if  plate  is  hit 


ME 


Edge  on  plate  MP  where  diffraction  occurs 


MP 


Plate  for  which  diffraction  occurs 


PO 


Dot  product  of  edge  bi normal  and  propaga¬ 
tion  direction 


PH 

PHIR 


Diffracted  field  phi  unit  vector  perpen¬ 
dicular  to  edge 

Phi  component  of  propagation  direction  of 
ray  incident  on  plate  MP 
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PHO 

PP 

PS 

PSO 

PSOR 

PSR 

QO 

QI 

RHI1 

RHI2 

RHOl 

RH02 

S 

SBO 

SMAG 

SNF 


Incident  field  phi  unit  vector  perpen¬ 
dicular  to  edge 

Negative  dot  product  of  edge  binormal  and 
Incident  ray  unit  vector 

Diffracted  ray  phi  angle  in  edge-fixed 
coordinate  system 

Phi  angle  of  incident  ray  direction  in 

edge-fixed  coordinate  system  in  degrees 

Phi  angle  of  incident  ray  direction  in 

edge-fixed  coordinate  system 

Phi  component  of  diffracted  ray  propagation 
direction  in  edge-fixed  coordinate  system 

Dot  product  of  plate  normal  and  diffracted 
ray  propagation  direction 

Negative  of  dot  product  of  plate  normal  and 
incident  ray  unit  vector 

Radius  of  curvature  perpendicular  to  edge 
of  diffracted  ray  incident  on  reflection 
point 

Radius  of  curvature  in  edge  plane  of 
diffracted  ray  incident  on  reflection  point 

Ray  spreading  radius  in  plane  of  cylinder 
curvature  at  reflection  point 

Ray  spreading  radius  in  plane  normal  to 
plane  of  incidence  at  cylinder  reflection 
point 

Distance  from  source  to  reflection  point 

Sine  of  the  diffraction  angle 

Distance  from  diffraction  point  to  reflec¬ 
tion  point 

Distance  between  near-fleld  observation 
point  and  reflection  point  on  cylinder 
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SP 

TEMP 

THIR 

TP  P 
UB 

UIPPX,UIPPY,UIPPZ 

UIPRX,UIPRY,UIPRZ 

UN 

URPPX.URPPY.URPPZ 

VI 

VIC 

VR 

VXS 

XD 

XDD 

XDP 

XR 


Distance  from  source  to  diffraction  point 
(from  subroutine  DFRFPT) 

A  temporary  storage  variable  array 

Theta  component  of  propagation  direction  of 
ray  Incident  on  plate  MP 

The  distance  parameter 

X,Y  components  of  unit  vector  tangent  to 
cylinder  at  reflection  point 

X,Y,Z  components  of  incident  field  polari¬ 
zation  unit  vector  parallel  to  plane  of 
incidence 

X,Y,Z  components  of  incident/reflected 
field  polarization  unit  vector  perpen¬ 
dicular  to  plane  of  incidence 

X,Y  components  of  unit  vector  normal  to 
cylinder  at  reflection  point 

XtY,Z  components  of  reflected  field  polari¬ 
zation  unit  vector  parallel  to  plane  of 
incidence 

Unit  vector  of  propagation  direction  of  ray 
incident  on  diffraction  point  (from 
subroutine  DFRFPT) 

X,Y,Z  components  of  unit  vector  of  ray 
direction  between  diffraction  and 
reflection 

Elliptical  angle  defining  reflection  point 
on  cylinder  (2-D)  in  RCS  x-y  plane 

3X3  matrix  defining  the  source  coordinate 
system  axes 

X,Y,Z  components  of  diffraction  point 
Diffraction  point  location 
Modified  diffraction  point  location 
X,Y,Z  components  of  reflection  point 
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MP 

F.P. 

PHSR 

/DIR/ 

PI 

/PIS/ 

SPHS 

/DIR/ 

SPS 

/DIR/ 

THSR 

/DIR/ 

TP  I 

/PIS/ 

V 

/GEOPLA/ 

VN 

/GEOPLA/ 

VP 

/GEOPLA/ 

VXS 

/SORINF/ 

XS 

/SORINF/ 

ZC 

/GEOMEL/ 

B.  OUTPUT 

LOCATION 

EDPH 

F.P. 

EDTH 

F.P. 

LDRC 

/CLDRC/ 

CALLING  ROUTINE: 

GTODRV 

CALLED  ROUTINES: 

ASSIGN 

BEXP 

BTAN2 

CYLINT 

DFRFPT 
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OW 

NANDB 

NFO 

PLAINT 

RFDFPT 

SMAGNF 

SOURCE 

STATIN 

STATOT 

TPNFLD 

WLKBCK 

XYZFLD 

REFERENCES: 

A.  R.  G.  Kouyoumjlan  and  P.  H.  Pathak,  "A  Uniform  Geometrical 

Theory  of  Diffraction  for  an  Edge  in  a  Perfectly  Conducting 

Surface,"  Proc.  IEEE,  Vol.  62,  November  1974,  pp.  1448-1461. 

B.  R.  J.  Marhefka,  "Analysis  of  Aircraft  Wing-Mounted  Antenna 

Patterns,"  Report  2902-25,  June  1976,  The  Ohio  State  University 

ElectroSclence  Laboratory,  Department  of  Electrical  Engi¬ 
neering;  prepared  under  Grant  No.  NGL  36-008-138  for  National 
Aeronautics  and  Space  Administration. 


f 


DPLRCL 


(GTD) 


Page  2  of  3 


DPLRCL  (GTD) 


Page 


246 


of  3 


I 


2.  PURPOSE:  To  compute  the  unobstructed  electric  field  from  a  unit 
source  diffracted  by  edge  HE  of  plate  HP  and  then  reflected  by  plate 
MR  Into  a  given  far-fleld  direction  or  to  a  given  near-field  obser¬ 
vation  point. 

3.  METHOD:  DPLRPL  is  the  driver  routine  for  the  analysis  of  the  edge 
diffracted  then  plate  reflected  field.  Pertinent  geometry  is  shown 
in  figures  1  and  2.  Computation  details  are  given  in  references  A, 
B,  and  C. 


Figure  1.  Illustration  of  Edge-Diffracted,  Plate-Reflected  Ray 
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Figure  2.  Geometry  Used  in  Computing  Plate  Reflection 
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The  fields  are  initialized  to  zero.  To  find  the  diffraction  point 
on  edge  ME  of  plate  MP,  the  direction  the  ray  must  travel  for  far- 
fleld  calculations,  or  the  point  the  ray  must  travel  towards  for 
near-field  calculations,  must  be  found  first.  The  direction  the 
far-field  ray  path  would  take  between  the  diffraction  and  reflection 
plates  is  found  by  imaging  the  observation  direction  through  plate 
MR.  This  is  performed  in  subroutine  REFBP.  For  a  near-field  case, 
the  observation  field  point  is  imaged  through  plate  MR.  The 
diffracted  ray  would  travel  towards  this  image  point.  The  image 
point  is  found  in  subroutine  IMAGE.  The  diffraction  point  is  found 
in  subroutine  DFPTWD.  If  diffraction  did  not  occur,  debug  informa¬ 
tion  (if  requested)  is  printed  and  then  control  is  returned  to  the 
calling  routine.  If  diffraction  does  exist  but  the  diffraction 
point  is  on  the  edge  tangent  outside  of  the  corners,  the  point  loca¬ 
tion  is  changed  to  that  of  the  closest  corner.  A  flag  (LDIF=FALSE) 
is  set  to  indicate  that  only  corner  diffraction  is  possible.  Then 
the  ray  paths  on  plate  MR  are  checked  to  make  sure  reflection 
occurs.  This  is  followed  by  checking  the  complete  ray  path  for 
obstructions.  If  reflection  does  not  occur  or  if  the  ray  path  is 
shadowed,  debug  Information  (if  requested)  is  printed  on  file  LUPRNT 
and  then  control  is  returned  to  the  calling  routine.  If  reflection 
occurs  and  the  ray  path  is  clear  of  obstructions,  the  fields  can  be 
computed. 

First  the  edge-diffracted  field  is  computed.  This  includes  the 
regular  diffracted  field;  and,  if  slope  diffraction  was  requested, 
the  slope  diffracted  field.  The  source  field  pattern  factor  is 
found  in  subroutine  SOURCE.  The  slope  field  pattern  factor  is  found 
in  subroutine  SOURCP.  The  edge  diffraction  coefficient  is  found  by 
calling  subroutine  DW.  The  diffracted  field  is  found  in  components 
parallel  and  perpendicular  to  the  diffracting  edge  and  then  in 
components  normal  and  tangent  to  the  reflecting  plate.  Then  by 
multiplying  by  the  correct  polarization  components  and  phase  terms, 
the  diffracted-ref lected  field  is  found  in  reference  coordinate 
system  (RCS)  theta  and  phi  components.  Subroutine  XYZFLD  is  called 
to  compute  the  x,  y,  z  components  of  the  field  and  to  accumulate  it 
with  fields  from  the  other  interactions. 

If  corner  diffraction  was  requested,  the  far-field  corner-diffracted 
fields  are  computed  for  each  corner  on  edge  ME.  The  same  steps  used 
in  computing  the  edge  diffracted  fields  are  used  for  computing  the 
corner  diffracted  fields. 

If  debug  information  was  requested,  the  total  field  magnitude  is 
computed.  The  magnitude,  theta,  and  phi  RCS  components  are  printed 
on  file  LUPRNT.  Control  is  returned  to  the  calling  routine. 
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4.  INTERNAL  VARIABLES: 
VARIABLE 
A1 

A2 

A3 

ADN 

AFN 

AN 

BETN 

BETP 

BO 

BOP 

BRO 

Cl  1 

Cl  1A 


DEFINITION 

Component  of  incident  diffracted  field 
normal  to  plate  MR 

Component  of  incident  diffracted  field 
tangent  to  plate  MR 

Determinant  of  transformation  matrix 

Dot  product  of  vector  from  plate  MP  to  the 
source  and  the  plate  unit  normal 

Wedge  angle  number 

Distance  from  plate  MR  plane  to  FLDPT  and 
also  distance  from  plate  MR  to  the  diffrac¬ 
tion  point  on  plate  MP 

Difference  in  diffracted  and  incident  phi 
angles 

Sum  of  diffracted  and  incident  phi  angles 

Diffracted  field  beta  polarization  unit 
vector  (in  edge-fixed  coordinate  system)  in 
RCS  components  (for  diffracting  edge) 

Incident  field  beta  polarization  unit 
vector  (In  edge-fixed  coordinate  system)  In 
RCS  components  (for  diffracting  edge) 

Array  for  the  dot  products  of  the  unit  edge 
vector  and  the  unit  vector  between  the 
source  and  each  corner  on  edge  ME  (from 
subroutine  DFPTWD)  (not  used  In  this 
subroutine) 

Dot  product  of  reflected  field  polarization 
vector  DT  and  plate  coordinate  system  unit 
vector  VN 

Dot  product  of  ray-fixed  coordinate  system 
vector  BO  and  plate  coordinate  system 
vector  VN 
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C12 

Dot  product  of  ray-fixed  coordinate  system 
vector  DP  and  plate  coordinate  system  unit 
vector  VN 

C12A 

Dot  product  of  ray-fixed  coordinate  system 
vector  PH  and  plate  coordinate  system 
vector  VN 

C21 

Dot  product  of  ray-fixed  coordinate  system 
vector  DT  and  plate  coordinate  system  unit 
vector  VT 

C21A 

Dot  product  of  ray-fixed  coordinate  system 
vector  BO  and  plate  coordinate  system 
vector  VT 

C  22 

Dot  product  of  reflected  field  polarization 
unit  vector  DP  and  plate  coordinate  system 
unit  vector  VT 

C22A 

Dot  product  of  ray-fixed  coordinate  system 
vector  PH  and  plate  coordinate  system 
vector  VT 

CNP 

Cosine  of  half  wedge  angle 

CORN 

Corner  diffraction  coefficient 

CPH 

Cosine  of  PSR 

CPHJ 

Cosine  of  PHJR 

CPHO 

Cosine  of  PSOR 

CTH 

Cosine  of  THR 

CTHJ 

Cosine  of  THJR 

CTHP 

Cosine  of  THPR 

DEL 

Parameter  used  in  transition  function 

DH 

Diffraction  coefficient  for  hard  boundary 
condition 

DHIT 

Distance  from  source  to  nearest  hit  point 
(from  subroutine  PLAINT  or  CYLINT) 

OHT 

Distance  from  source  to  hit  point  (returned 
from  PLAINT  and  CYLINT) 
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DO 

XtY,  and  Z  components  of  ray  propagation 
direction  between  diffraction  and 
reflection 

DMAG 

Distance  between  reflection  point  and 
observation  field  point 

DPH 

Slope  diffraction  coefficient  for  hard 
boundary  condition 

DPS 

Slope  diffraction  coefficient  for  soft 
boundary  condition 

DS 

Diffraction  coefficient  for  soft  boundary 
condition 

DV 

Dot  product  of  edge  vector  and  diffracted 
ray  propagation  direction  unit  vector  DJ 

ECBI 

Diffraction  coefficient  (from  subroutine 
OICOEF)  for  Incident  diffracted  field, 
modified  for  corner  diffraction 

ECBR 

Edge  diffraction  coefficient  (from  sub¬ 
routine  DICOEF)  for  reflected  diffracted 
field,  modified  for  corner  diffraction 

ECPH 

Phi  component  of  corner  diffracted, 

reflected  E-field 

ECTH 

Theta  component  of  corner  diffracted, 
reflected  E-field 

EDPH 

Phi  component  of  edge  diffracted,  reflected 
E-fleld 

EDPL 

Component  of  diffracted  field  parallel  to 
the  edge 

EDPR 

Component  of  diffracted  field  perpendicular 
to  the  edge 

EDTH 

Theta  component  of  edge  diffracted, 
reflected  E-field 

EF 

Theta  component  of  pattern  factor  of  field 
Incident  on  edge  -  also  theta  component  of 
reflected  field  in  RCS 
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EG 

Phi  component  of  pattern  factor  of  field 
Incident  on  edge  -  also  phi  component  of 
reflected  field  in  RCS 

EIPL 

Component  of  incident  field  parallel  to  the 
edge 

EIPLP 

Pattern  factor  for  component  of  source 
(incident)  slope  field  parallel  to  the  edge 
(ray  incident  on  diffracting  edge) 

EIPR 

Component  of  incident  field  perpendicular 
to  the  edge 

EIPRP 

Pattern  factor  for  component  of  source 
(incident)  slope  field  perpendicular  to  the 
edge  (ray  incident  on  diffracting  edge) 

EIX.EIY.EIZ 

Source  pattern  factors  for  x,y,  and  z 
components  of  incident  field  on  edge 

EXPH 

Complex  phase  term 

FLDPTI 

Location  of  field  point  imaged  through 
plate  MR 

FN 

Wedge  angle  number 

FNN 

Wedge  angle  indicator 

FNP 

Angle  exterior  to  wedge  in  degrees 

GAM 

Dot  product  of  the  propagation  direction 
and  the  vector  from  the  RCS  origin  to  the 
diffraction  point  image  location 

ISN 

Sign  change  variable 

LOIF 

Logical  variable  set  false  If  diffraction 
point  is  on  edge  tangent  outside  corners 
(Diffraction  point  moved  to  closest  corner) 

LDIFFR 

Logical  variable  set  true  if  edge  diffrac¬ 
tion  occurred  (from  subroutine  DFPTWD) 

LHIT 

Set  true  if  ray  hits  a  plate  or  cylinder 
(from  PLAINT  or  CYLINT) 

MC 

Corner  at  end  of  edge  ME 
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ME  Edge  on  plate  MP  where  diffraction  occurs 

MP  Plate  for  which  diffraction  occurs 

MR  Plate  where  reflection  occurs 

N  DO  loop  variable 

PD  Dot  product  of  edge  bi normal  and  propaga¬ 

tion  direction 


PH  Diffracted  field  phi  polarization  unit 

vector  (In  edge-fixed  coordinate  system)  in 
RCS  components  (for  diffracting  edge) 

PHIR  Phi  component  of  incident  ray  direction  in 

RCS 

PH JR  Phi  component  of  ray  propagation  direction 

between  diffraction  and  reflection  in  RCS 

PHO  Incident  field  phi  polarization  unit  vector 

(in  edge-fixed  coordinate  system)  in  RCS 
components  (for  diffracting  edge) 

PHSR  Phi  component  of  propagation  direction 

after  reflection  in  RCS 


PP  Negative  dot  product  of  edge  binormal  and 

incident  ray  unit  normal 

PS  PSR*DPR 

PSD  Diffracted  ray  phi  angle  in  edge-fixed 

coordinate  system 

PSO  PS0R*DPR 

PSOD  Incident  ray  phi  angle  in  edge-fixed  coor¬ 

dinate  system 

PSOR  Phi  component  of  incident  ray  direction  in 

edge-fixed  coordinate  system 

PSR  Phi  component  of  diffracted  ray  direction 

in  edge-fixed  coordinate  system 

QD  Dot  product  of  plate  normal  and  propagation 

direction 
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QI 

Negative  of  dot  product  of  plate  normal  and 
Incident  ray  propagation  direction 

RM 

Magnitude  of  vector  from  corner  MC  to 
source 

RX.RY.RZ 

X,Y,  and  Z  components  of  vector  from  corner 
MC  to  source 

SBO 

Sine  of  BO,  the  angle  the  diffracted  ray 
makes  with  the  edge 

SNF 

Distance  between  diffraction  point  and 
near-field  observation  point  Imaged  through 
plate  MR 

SNP 

Sine  of  half  wedge  angle 

SP 

Distance  from  source  to  diffraction  point 
(from  subroutine  DFPTWD) 

SPH 

Sine  of  PSR 

SPHJ 

Sine  of  PH JR 

SPHO 

Sine  of  PSOR 

SPP 

Distance  from  source  to  modified  diffrac¬ 
tion  point 

STHJ 

Sine  of  THJR 

STHR 

Sine  of  THR 

TERM 

Coefficient  of  corner  diffracted  fields 

THIR 

Theta  component  of  Incident  ray  direction 
In  RCS 

THJR 

Theta  component  of  ray  propagation  direc¬ 
tion  between  diffraction  and  reflection  In 
RCS 

THPR 

Angle  diffracted  ray  makes  with  edge 

THR 

Angle  between  edge  unit  vector  and  ray  from 
source  to  corner  MC 
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TPP  Distance  parameter  used  In  calculating 

diffraction  coefficients 


VCM 


VECT 

VI 

VIP 

VMG 

VT 


XDPP 

XS 


Array  which  contains  the  distance  between 
the  source  and  each  corner  on  edge  ME  (from 
subroutine  DFPTWD)  (not  used  In  this 
subroutine) 

Vector  used  to  move  diffraction  point  off 
edge  for  shadowing  tests 

Unit  vector  of  ray  Incident  on  edge  from 
source  (from  subroutine  DFPTWD) 

Unit  vector  from  source  to  modified 

diffraction  point 

Distance  along  the  edge  from  first  corner 
of  edge  ME  to  diffraction  point 

X,Y,  and  Z  components  of  unit  vector  on 
plate  MR  normal  to  plane  of  Incidence 
(tangent  to  plate) 

3X3  matrix  defining  the  source  coordinate 
system  axes 

Olffraction  point  (calculated  In  subroutine 
DFPTWD) 

Diffraction  point  location 

Diffraction  point  image  through  plate  MR 

Modified  diffraction  point  used  for 
shadowing  tests— also  location  of  diffrac¬ 
tion  point  Image  In  plate  MR 

Diffraction  point,  converted  to  reflection 
hit  point 

Source  location  in  RCS 


XS1 


Source  location 


XSS 


Source  location 


ZP  Dot  product  of  propagation  unit  vector  and 

vector  from  diffraction  point  to  corner  MC 
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5.  I/O  VARIABLES: 


INPUT 

LOCATION 

D 

/DIR/ 

DP 

/THPHUV/ 

DPR 

/PIS/ 

DT 

/THPHUV/ 

FLDPT 

/NEAR/ 

FNN 

F.P. 

LCORNR 

/LOGDIF/ 

LDEBUG 

/TEST/ 

LNRFLD 

/NEAR/ 

LSLOPE 

/LOGDIF/ 

LSURF 

/SURFAC/ 

LUPRNT 

/ADE8UG/ 

ME 

F.P. 

MEP 

/GEOPLA/ 

MP 

F.P. 

MR 

F.P. 

PHSR 

/DIR/ 

PI 

/PIS/ 

THSR 

/DIR/ 

TP  I 

/PIS/ 

V 

/GEOPLA/ 

VMAG 

/EDMAG/ 

VN 

/GEOPLA/ 
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VP 

/GEOPLA/ 

vxs 

/SORINF/ 

X 

/GEOPLA/ 

xs 

/SORINF/ 

B.  OUTPUT 

LOCATION 

ECPH 

F.P. 

ECTH 

F.P. 

EDPH 

F.P. 

EDTH 

F.P. 

CALLING  ROUTINE: 

GTDDRV 

CALLED  ROUTINES: 

ASSIGN 

PLAINT 

BEXP 

REFBP 

BTAN2 

SMAGNF 

CYLINT 

SOURCE 

DFPTWD 

SOURCP 

DICOEF 

STATIN 

DM 

STATOT 

FFCT 

TPNFLD 

IMAGE 

WLKBCK 

NFD 

XYZFLD 

REFERENCES: 

A.  R.  G.  Kouyoumjlan  and  P.  H.  Pathak,  "A  Uniform  Geometrical 
Theory  of  Diffraction  for  an  Edge  In  a  Perfectly  Conducting 
Surface,"  Proc.  IEEE,  Vol.  62,  November  1974,  pp.  1448-1461. 
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W.  0.  Burnside  and  P.  H.  Pathak,  "A  Corner  Diffraction  Coeffi¬ 
cient,”  to  appear. 

Y.  M.  Hwang  and  R.  G.  Kouyoumjlan,  "A  Dyadic  Diffraction 
Coefficient  for  an  Electromagnetic  Wave  Which  Is  Rapidly 
Varying  at  an  Edge,"  USNC-URSI  1974  Annual  Meeting,  Boulder, 
CO.,  Oct.  1974. 
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INITIALIZE  FIELDS  TO 
ZERO 


compute  field  point 

IMAGE  THROUGH  PLATE 
MR 

image 


COMPUTE  INCIDENT 
DIRECTION  OF  FIELD 
ON  PLATE  MR 
REFBP 


SET  DIFFRACTION 
POINT  TO  CLOSEST 
CORNER 
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* _ 3 

YES 

_ _ /Ot 

f 

LOOP  THROUGH  BOTH 

CORNERS 

1 

t 

38 


COMPUTE  CORNER 

DIFFRACTION 

COEFFICIENT 


COMPUTE  MODIFIED 
EDGE  DIFFRACTED 
COEFFICIENTS 


312 _ ^ 

COMPUTE  COMPONENTS 
OF  CORNER  DlFFRACTEOl 
FIELD  PARALLEL  AND 
PERPENDICULAR  TO 
EOGE 


203 


COMPUTE  CORNER  OIF 

fracted  fields  INCI 

DENT  ON  PLATE  MR 
IN  PLATE  COORDINATE 
SYSTEM 


COMPUTE  CORNER 

diffracted  fields 

AFTER  REFLECTION 
IN  RCS 


COMPUTE  THETA  ANO 
PHI  COMPONENTS  OF 
CORNER  OIFFRACTEO 

reflected  fields  in 

RCS 


COMPUTE  x.  v.  i  COM 
PONENTS  OF  CORNER* 
DIFFRACTED. 

REFLECTED  FIELDS  ANO 
ACCUMULATE 

_ 1 
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1.  NAME:  DPTNFW  (GTD) 

2.  PURPOSE:  To  compute  the  diffraction  point  for  a  ray  which  Is 

diffracted  by  a  given  edge  and  observed  at  a  specified  near-field 
point  In  the  vicinity  of  the  plate. 

3.  METHOD:  The  diffraction  point  is  found  by  using  geometrical 

relationships  involving  similar  triangles  defined  by  perpendiculars 
from  the  source  and  observation  points  to  the  edge  line.  The 
quantities  and  geometries  used  are  shown  in  figure  1. 


SOURCE 


Figure  1.  Geometry  for  Finding  the  Diffraction  Point  with  the 
Observation  Point  in  the  Near  Field  of  the  Plate 

The  perpendicular  from  the  source  to  the  edge  line  is  given  by: 


XPS  =  XSCE  V  +  X 

where 

XSCE  =  (XS  -  X)  -V 
and  7  is  the  vector  to  corner  ME. 

The  perpendicular  from  the  observation  point  to  the  edge  line  is  given 
by: 


265 


DPTNFW 


(STD) 


XPO  =  XOCE  V  +  X 

where 


XOCE  =  (XO  -  X)  -V 
and  J  Is  the  vector  to  corner  ME. 

The  triangles  are  similar  due  to  Snell's  law:  the  angle  of  incidence 
equals  the  angle  of  diffraction.  By  enforcing  Snell's  law  and 
calculating  the  distances  SS,  SO  and  XOSE  given  by 


SS  =  1XS  -  XPSI 
SO  =  ixo  -  XPOl 
XOSE  =  (XO  -  XS)  •  V  , 

the  distance  TS  can  be  found  by  the  following  approach: 

tan  B  =  tan  B 
o  o 

SS  SO 
TS  XOSE-TS 

( SS ) ( XOSE )  -  ( SS ) ( TS )  =  (SO) (TS) 

SS(XOSE)  =  TS  (SO+SS) 

=  (SS) (XOSE) . 

SO  +  SS 

And  by  knowing  also  that 


TS  =  1XD  -  XPSI  , 
the  diffraction  point  can  be  found  by 


XD  =  XPS  +  TS  V  . 
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4.  INTERNAL  VARIABLES: 
VARIABLE 
ME 
MP 
SO 

SS 

TS 

V 

X 

XD 

XO 

XOCE 

XOSE 

XPO 

XPS 

XS 

XSCE 


DEFINITION 

Edge  on  plate  MP  where  diffraction  occurs 

Plate  whern  diffraction  occurs 

Distance  from  observation  point  to  point 
XPO 

Distance  from  source  to  point  XPS 

Distance  from  XPS  to  XD  along  edge  line 

Tangent  vector  to  edge  where  diffraction 
occurs 

X,Y,Z  components  of  corner  locations  on 
edge  ME  of  plate  MP 

X,Y,Z  components  of  diffraction  point 
location  in  RCS 

X,Y,Z  components  of  observation  point  in 
RCS 

Dot  product  of  ray  from  corner  ME  to  obser¬ 
vation  point  and  edge  unit  vector 

Dot  product  of  ray  from  source  to  observa¬ 
tion  point  and  edge  unit  vector 

Point  on  line  through  edge  ME  closest  to 
observation  point 

Point  on  line  through  edge  ME  closest  to 
source 

X,Y,Z  components  of  source  location  In 
RCS 

Dot  product  of  ray  from  corner  ME  to  source 
and  edge  unit  vector 
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5.  I/O  VARIABLES: 


A. 

INPUT 

LOCATION 

ME 

F.P. 

MP 

F.P. 

V 

/GEOPLA/ 

X 

/JEOPLA/ 

XO 

F.P. 

XS 

F.P. 

B. 

OUTPUT 

LOCATION 

XD 

F.P. 

6.  CALLING  ROUTINE: 
GEOMPC 

7.  CALLED  ROUTINE: 
None 


INITIALIZATION 


1.  NAME:  0QG32  (GTD) 

2.  PURPOSE:  To  numerically  Integrate  a  given  function  over  a  specified 
range. 

3.  METHOD:  This  subroutine  uses  a  32  point  Gaussian  quadrature  formula 
to  compute  the  Integral  of  a  function.  The  form  of  the  Integral  Is 
given  as  (see  reference  A): 

XU 

Y  =  J  FCT  (  x  )dx . 

XL 


4.  INTERNAL  VARIABLES: 
VARIABLE 

FCT 

XL 

XU 

Y 

5.  I/O  VARIABLES: 

A.  INPUT 
FCT 
XL 

XU 

B.  OUTPUT 
Y 

6.  CALLING  ROUTINES: 
FKARG 

RPLSCL 

SCLRPL 

SCTCYL 


DEFINITION 

Function  defining  the  integrand 
Lower  limit  of  Integration 
Upper  limit  of  integration 
Result  of  Integral 

LOCATION 

F.P. 

F.P. 

F.P. 

LOCATION 

F.P. 
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CALLED  ROUTINES: 

FCT 

REFERENCE: 

A.  M.  Abramowitz  and  I.  A.  Stegun,  Handbook  of  Mathematical  Func¬ 
tions,  7th  Edition,  Dover  Publications,  Inc. ,  New  York,  1570 
pp.  887-888. 


L 


DQG32  (GTD) 


INITIALIZE 
A,  B,  C,  7 


CALCULATE 

INTEGRAL 


c 


RETURN 


1.  NAME:  OW  (GTO) 

2.  PURPOSE:  To  determine  wedge  and  slope  diffraction  coefficients  for 
the  soft  and  hard  boundary  conditions. 

3.  METHOD:  This  subroutine  directs  the  calculations  of  the  edge  dif¬ 
fraction  and  slope  diffraction  coefficients  for  the  hard  and  soft 
boundary  conditions  using  the  Uniform  Geometrical  Theory  of  Diffrac¬ 
tion  (see  references  A  and  B).  Subroutine  DICOEF  Is  called  to  cal¬ 
culate  the  edge  diffraction  coefficient.  Subroutine  DPI  Is  called 
to  calculate  the  slope  diffraction  coefficient.  Subroutine  DW  sums 
the  results  appropriately. 

The  edge  diffraction  coefficient  has  the  form: 


=  DI ( R,$-$ ' , sinBQ,n)  —  DI ( R, $+$ ' , sinBQ» n) , 


where  0^  1  s  for  the  hard  case  and  Ds  Is  for  the  soft  case  and  n  is 
the  wedge  angle  number  (FN).  The  other  variables  are  defined  as 
shown  In  figure  1.  See  subroutine  DICOEF  for  the  actual 
calculations. 

The  slope  diffraction  coefficient  has  the  form: 

3D6 

■gXT  =  DPI(R,4>-*',  sin0o,n)  +  DPI  (R,W  ,sinBQ,n) 


See  subroutine  DPI  for  the  actual  calculations. 

In  both  cases  the  part  refers  to  the  Incident  part  of  the  dif¬ 
fraction  coefficient  and  ♦+♦'  refers  to  the  reflection  part.  For 
grazing  Incidence  where  ♦'=0,  the  diffraction  coefficients  have  the 
form: 


Dh  =  DI(R,$,sin&o,n) 


D 


s 


=  0 


3Ds 

=  DPI(R,*,sinB0,n) 


3$ ' 


0. 
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Figure  1.  Edge  Diffraction  Geometry 
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INTERNAL  VARIABLES: 
VARIABLE 


DEFINITION 


BETN 

Difference  between  diffraction  and  Inci¬ 
dence  angle 

BETP 

Difference  between  diffraction  and  image  of 
incidence  angle 

DH 

Edge  diffraction  coefficient  for  hard 
boundary  condition 

DIN 

Incident  part  of  edge  diffraction  coeffi¬ 
cient 

DIP 

Reflection  part  of  edge  diffraction  coeffi¬ 
cient 

DPH 

Slope  diffraction  coefficient  for  hard 
boundary  condition 

DPN 

Incident  part  of  slope  diffraction  coeffi¬ 
cient 

DPP 

Reflection  part  of  slope  diffraction  coef¬ 
ficient 

DPS 

Slope  diffraction  coefficient  for  soft 
boundary  condition 

DS 

Edge  diffraction  coefficient  for  soft 
boundary  condition 

FN 

Wedge  angle  number 

LSURF 

A  logical  variable  that  is  set  true  if  the 
source  is  mounted  on  the  surface  of  the 
wedge  (grazing  incidence) 

PH 

Diffraction  ray  phi  angle  in  edge-fixed 
coordinate  system  (in  degrees) 

PHP 

Incident  ray  phi  angle  in  edge-fixed  coor¬ 
dinate  system  (in  degrees) 

DW  (GTD) 


R  Distance  parameter  which  Is  a  function  of 

source  type.  Incidence  angle,  and  source- 
to-diffraction  point  separation  distance 

SBO  Sine  of  0O,  the  angle  the  rays  make  with 

the  edge 

I/O  VARIABLES: 


A. 


B. 


INPUT 

LOCATION 

FN 

F.P. 

LSURF 

F.P. 

PH 

F.P. 

PHP 

F.P. 

R 

F.P. 

SBO 

F.P. 

OUTPUT 

LOCATION 

OH 

F.P. 

DPH 

F.P. 

OPS 

F.P. 

OS 

F.P. 

CALLING  ROUTINES: 
DIFPLT 


OPLRCL 

DPLRPL 


RCLDPL 

RPLDPL 
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CALLED  ROUTINES: 


DICOEF 

DPI 

REFERENCES: 

A.  R.G.  Kouyoumjian  and  P.H.  Pathak,  "A  Uniform  Geometrical  Theory 
cf  Diffraction  for  an  Edge  in  a  Perfectly  Conducting  Surface," 
Proc.  IEEE,  Vol.  62,  November  1974,  pp.  1448-1461. 

B.  R.G.  Kouyoumjian,  "The  Geometrical  Theory  of  Diffraction  and 
Its  Applications,"  Numerical  and  Asymptotic  Techniques  in  Elec¬ 
tromagnetics,  edited  by  R.  Mittra,  Spring-Verlag,  New  York, 
1975. 
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1.  NAME:  OZCOEF  (GTO) 

2.  PURPOSE:  To  compute  the  diffraction  coefficient  for  an  edge  formed 
by  two  curved  surfaces. 

3.  METHOD:  This  subroutine  computes  the  diffraction  coefficient  for  a 
curved  edge  based  on  the  Uniform  Geometrical  Theory  of  Diffraction 
(see  reference  A).  The  diffraction  coefficient  Is  given  by: 


!>*(♦*♦'  »80> 
h 


e-jn/4 


2nv/2irk  sinB, 


DS,  DH  FI 

k=2ir  since  units  are 
normalized  to  wave¬ 
lengths;  thus  2irk~2ir 


[2  sinU/n)FCkLia'(»-»’)l1 
[cos (*/n) -cos [(♦-♦' )/nJ  J 


F2 


t  {cot 


FtkLcna+<*+*’>) 


+  cot  (■ 


} }  FtkLroa" (♦+♦')]}] 


F3 


F4 


where 

a' (8)  *  2  cos2  8/2 
a+(0)  =2  cos2(2irn-8)/2 


(denoted  by  AP) 
(denoted  by  A) 


and  n  Is  the  wedge  number  (FN)  and  L1,  lrn,  Lro  are  the  distance 
parameters  for  the  Incident  part,  reflection  from  the  n-surface  and 
o- surface  respectively.  The  distance  parameters  are  functions  of 
source  type.  Incident  angle,  and  source-to-dlf fraction  point  separa¬ 
tion  distance  and  are  such  to  make  the  field  continuous  at  shadow 
and  reflection  boundaries. 

When  the  diffraction  angle  Is  close  to  one  of  the  shadow  boundaries, 
the  following  approximation  Is  used 


)  F[kLa-(  8)  ]  =  y n  2irkL  ejl,/4  e^k|Lla 
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where  the  plus  or  minus  sign  is  chosen  depending  on  which  side  of 
the  shadow  boundary  the  diffraction  angle  is  on.  The  variable  a  (0) 
is  denoted  as  A,  as  previously  defined.  The  variable  a"(0)  is 
denoted  as  AP  as  previously  defined. 

4.  INTERNAL  VARIABLES: 


VARIABLE 

A 

AP 

CSP 

DH 

DS 

FI 

F2 

F3 

F4 

FLI 

FLRN 

FLRO 

FN 

PHPR 

PHR 

PI 

PMR 


DEFINITION 

Angle  function  for  incident  and  o-surface 
transition  functions 

Angle  function  for  n-surface  transition 
function 

C0S(PMR/2. ) 

Diffraction  coefficient  for  hard  boundary 
condition 

Diffraction  coefficient  for  soft  boundary 
condition 

Constant  factor 

Incident  part  of  diffraction  coefficient 

N-surface  part  of  diffraction  coefficient 

0-surface  part  of  diffraction  coefficient 

Distance  parameter  for  the  incident 
component 

Distance  parameter  for  the  reflection  from 
the  N-surface 

Distance  parameter  for  the  reflection  from 
the  0-surface 

Wedge  angle  number 

Incident  ray  angle  in  radians 

Diffracted  ray  angle  in  radians 

IT 

Difference  between  diffraction  angle  and 
the  incidence  angle 
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PPR 

Difference  between  diffraction 
the  Inage  of  the  Incidence  angle 

angle  and 

SBO 

Sine  of  BO 

TAN1 

N- surface  angular  dependence  of 
coefficient 

diffraction 

TAN2 

O-surface  angular  dependence  of 
coefficient 

diffraction 

TPI 

2ir 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

FLI 

F.P. 

FLRN 

F.P. 

FLRO 

F.P. 

FN 

F.P. 

PHR 

F.P. 

PHPR 

F.P. 

PI 

/PIS/ 

SBO 

F.P. 

TPI 

/PIS/ 

B.  OUTPUT 

LOCATION 

ON 

F.P. 

OS 

F.P. 

CALLING  ROUTINE: 

ENDIF 

CALLEO  ROUTINES: 

BEXP 

FKY 
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8.  REFERENCES: 

A.  R.  G.  Kouyoumjlan  and  P.  H.  Pathak,  "A  Uniform  Geometrical 
Theory  of  Diffraction  for  an  Edge  In  a  Perfectly  Conducting 
Surface,"  Proc.  IEEE,  Vol.  62,  November  1974,  pp.  1448-1461. 


I 


DZCOEF 


(GTD) 


COMPUTE  INCIDENT 
PART  OP  DIFFRACTION 
COEFFICIENT 


IS 


COMPUTE  N-  SURFACE 
REFLECTED  COMPO¬ 
NENT 


25 


COMPUTE  0-SURFACE 
REFLECTED  COMPO¬ 
NENT 


3S 


COMPUTE  TOTAL  DIF¬ 
FRACTION  COEFFICIENT 


COMPUTE  GRAZING 
INCIDENCE  COEF¬ 
FICIENTS  (ADD  FACTOR 
OF  0.5  TO  COEFFICIENTS) 


1. 

2. 

3. 


4. 


5. 


NAME:  EFDGEO  (INPUT) 

PURPOSE:  Find  the  geometry  data  set  linked  to  the  solution  argument 
of  the  E-fleld  command  and  return  Its  Index  In  INTARG. 

METHOD:  The  Index  of  the  solution  data  set  Is  determined  by 
checking  for  the  presence  or  absence  of  the  field  data  set.  The 
lineage  of  the  solution  data  set  Is  searched  for  a  geometry  data 
set.  If  none  Is  found,  a  warning  message  Is  printed  and  an  error 
flag  set. 


INTERNAL  VARIABLES: 

VARIABLE 

IGEOBT 

INOX 

INOXA 

INOXB 

LINKB 

LNKBIT 

NOXARG 

I/O  VARIABLES: 

A.  INPUT 
INTARG 
IPASS 
ISON 
KBGEOM 
KOLBIT 
KOLLNK 
NOATBL 


DEFINITION 

Data  set  geometry  attribute  flag 

Pointer  to  data  set  linked  to  solution  data 
set 

Pointer  to  field  data  set 

Pointer  to  solution  data  set 

Data  set  linked  to  data  set  pointed  to  by 
INOX 

Attribute  word  of  linked  data  set 

INTARG  location  of  geometry  data  set 
pointer 

LOCATION 

/ARGCOM/ 

/ARGCOM/ 

/ADEBUG/ 

/PARTAB / 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 
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EFOGEO 


(INPUT) 


NOPCOO 
NPDATA 
NUHARG 
B.  OUTPUT 
INTARG 
NOGOFG 

6.  CALLING  ROUTINE: 
TSKXQT 

7.  CALLED  ROUTINES: 
ASSIGN 

IBITCK 

STATIN 

STATOT 

WLKBCK 


/ADEBUG/ 
/PARTAB/ 
/ARGCOM/ 
LOCATION 
/ARGCOM/ 
/  iCNPAR/ 
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WRITE  WARMING 
MESSAGE 


RIACC  INOCX  OR 
OCOMCTRY  DATA 
StT  MINTAM 


1.  NAME:  EGFMAT  (MOM) 

2.  PURPOSE:  Generate  the  scattered  fields  from  the  Green's  function 
matrix  and  solution  vector  and  add  the  result  to  the  Incident  field 
to  obtain  the  total  field  pattern. 

3.  METHOD:  There  are  three  data  sets  involved  In  the  computation: 

(a)  Solution  vector,  generated  by  MOM  (S) 

(b)  Green's  function  matrix,  generated  by  GTD  (G) 

(c)  Field  matrix.  Initially  containing  Incident  field  data 
generated  in  GTD  (F) 

The  formats  of  the  matrices  are  shown  in  figure  1.  In  symbolic 
form,  EGFMAT  performs  the  operation 


F  =  F  +  GtS 

total  Incident  scattered 
field  "  field  field 


A  row  of  GT  multiplied  by  S  gives  the  scattered  field  for  one  field 
point.  This  value  is  added  to  the  incident  field  (If  any)  for  that 
point  and  stored  as  the  total  field.  Hence  several  row-column 
multiplications  are  required  to  generate  one  column  of  F. 

The  array  TEMP  Is  used  for  In-core  storage  of  columns  of  F,  G,  and 
S.  To  minimize  file  I/O,  as  many  columns  of  G  as  possible  are 
stored  In  TEMP  simultaneously.  The  TEMP  format  Is: 


LOCS  l  ,L0CG 

*  if 

The  one  column ,  G(ICOLGX)  G(JC0LGX+I)| ...  |  ...  | 
of  S  | 


•vv 

[ 


I  AOCFH.  LOCF 

'  i 

I  one  column  of 
,  F(ICOLF) 


] 


KCOLG  columns  of  G  that  contribute  to  this  column  of  F 
(as  many  as  will  fit) 


The  pointers  LOCS,  LOCG,  LOCFH,  and  LOCF  are  the  starting  words  of 
the  solution  vector,  Green's  function  matrix,  field  matrix  header, 
and  field  matrix  data  In  TEMP. 


EGFMAT  (MOM) 


NUMBER  OF  PATTERN  CUTS 


HEADER 

INFORMATION 


FAR  FIELD:  4  WORDS 
NEAR  FIELD:  6  WORDS 


(NUMBER  OF  PATTERN  CUTS  x  2  x 
x  NUMBER  OF  POLARIZATIONS 


FIELD  POINTS 


TOTAL  NUMBER  OF  FIELD  POINTS  x  NUMBER  OF  POLARIZATIONS 


G  - 


CUT  1  CUT  2  CUTS 


/  NUMBER  OF  BASIS 
\  FUNCTIONS 


Figure  1.  Formats  of  Data  Sets  Used  by  EGFMAT 


REAL  WORDS 


COMPLEX 

WORDS 
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EGFMAT  (MOM) 


There  are  four  nested  loops  to  EGFMAT: 

(a)  Loop  over  all  columns  of  the  field  matrix  (00  200) 

(b)  Loop  over  the  number  of  blocks  of  the  Green's  function 
matrix  which  will  fit  Into  TEMP  (DO  150) 

(c)  Loop  over  Green's  function  matrix  columns  in  TEMP  (00  140) 

(d)  Loop  to  multiply  one  column  of  Green's  functon  matrix  by 
the  solution  vector  (DO  130) 

The  Inner  most  loop  (d)  generates  the  scattered  field  at  one  field 
point  for  one  field  polarization.  Loops  (b)  and  (c)  span  all  field 
points  and  polarizations  associated  with  a  column  of  the  field 
matrix.  After  execution  of  loop  (b),  this  matrix  column  is  stored 
and  the  next  one  retrieved.  Loop  (a)  covers  the  entire  field  data 
set. 


If  the  Green's  function  matrix  is  zero  (no  scattered  field  speci¬ 
fied)  only  loop  (a)  is  executed.  This  has  the  effect  of  advancing 
the  edition  of  the  field  data  set. 

4.  INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 


ICOLF.ICOLFF  Column  of  field  matrix  in  TEMP 


ICOLGM 

Column  of  Green's  function  matrix  being 
multiplied  by  solution  vector 

ICOLGX 

First  column  of  Green's  function  matrix  in 
TEMP 

IC0LG1 

First  column  of  Green's  function  matrix 
associated  with  column  of  field  matrix  In 
TEMP 

IC0LG2 

Last  column  of  Green's  function  matrix 
associated  with  column  of  field  matrix  in 
TEMP 

IF 

Pointer  to  real  part  of  field  element  In 
TEMP  being  updated 

IF1 

Pointer  to  Imaginary  part  of  field  element 
in  TEMP  being  updated 

IGF 

Pointer  to  first  element  In  Green's 
function  matrix  column  being  multiplied  by 
solution  vector 
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IGFM  Internal  GEMACS  literal  code  for  "GFM" 

ILIM  Last  column  of  Green's  function  matrix  in  a 

block  of  columns 

ILOW  First  column  of  Green's  function  matrix  in 

a  block  of  diagrams 

INDXF  Pointer  to  symbol  table  data  for  field 

matrix 


INDXG  Pointer  to  symbol  table  data  for  Green's 

function  matrix 

INDXS  Pointer  to  symbol  table  data  for  solution 

vector 

IOFFST  The  relative  location  of  the  real  part  of 

the  Green's  function  matrix  element  being 
multiplied  by  a  solution  vector  element  of 
the  same  relative  location 

I0FF1  The  relative  location  of  the  imaginary  part 

of  the  Green's  function  matrix  element 
being  multiplied  by  a  solution  vector 
element  of  the  same  relative  location 

KCOLG  Number  of  columns  of  Green's  function 

matrix  which  will  fit  in  TEMP 

KSOLN  Flag  indicating  that  the  data  set  pointed 

to  by  INDXS  is  a  solution  data  set 

LOCF  Pointer  to  the  beginning  of  field  matrix 

data  in  TEMP 

LOCFH  Pointer  to  the  beginning  of  field  matrix 

header  data  in  TEMP 

LOCG  Pointer  to  the  beginning  of  Green's 

function  matrix  data  in  TEMP 

LOCS  Pointer  to  the  beginning  of  solution  vector 

data  in  TEMP 

N  Pointer  to  symbol  table  entry 

NAME  User-assigned  name  of  data  set  pointed  to 

by  N 
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NAHEF 

User-assigned  name  of  field  matrix 

NAMEG 

Name  of  Green's  function  matrix,  created  by 
replacing  the  three  rightmost  characters  In 
NAMEF  by  the  letters  contained  In  IGFM 

NAMES 

User-assigned  name  of  solution  vector 

NBITF 

Attribute  word  for  field  matrix 

NBITG 

Attribute  word  for  Green's  function  vector 

NBITS 

Attribute  word  for  solution  vector 

NCOLF 

Number  of  columns  in  field  matrix 

NCOLG 

Number  of  columns  in  Green's  function 
matrix 

NCOLS 

Number  of  columns  in  solution  vector 

NEEDF 

Number  of  data  words  required  to  store  one 
column  of  field  matrix 

NEEDG 

Number  of  data  words  required  to  store  one 
column  of  Green's  function  matrix 

NEEDS 

Number  of  data  words  required  to  store  one 
column  of  solution  vector 

NF 

Hollerith  format  name  of  field  matrix 

NG 

Hollerith  format  name  of  Green's  function 
matrix 

NINC 

Number  of  real  data  words  required  per 
field  point  in  field  matrix 

NROWF 

Number  of  real  words  per  column  of  field 
matrix 

NROWG 

Number  of  complex  elements  per  column  of 
Green's  function  matrix 

NROWS 

Number  of  complex  elements  per  column  of 
solution  vector 

NS 

Hollerith  format  name  of  solution  vector 
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(MOM) 


NSHIFT 

SI 

SR 

I/O  VARIABLES: 

A.  INPUT 
INOXF 
INOXS 
ISON 
KBSOLN 
KJGTD 
KJMOM 
KOLBIT 
KOLCOL 
KOLNAM 
KOLROW 
LUPRNT 
NBYTSZ 
NOATBL 
NINC 
NPDATA 
NTEMPS 
NUMGTD 

B.  OUTPUT 
IERRF 
TEMP 


Number  of  bits  In  lower  three  characters  of 
a  GEMACS  user-assigned  name 

Imaginary  part  of  scattered  field 

Real  part  of  scattered  field 


LOCATION 

F..». 

F.P. 

/ADEBUG / 
/PARTAB/ 
/INTMAT/ 
/INTMAT/ 
/PARTAB/ 
/PARTAB/ 
/PARTAB/ 
/PARTAB/ 
/ADEBUG/ 
/ADEBUG/ 
/PARTAB/ 
F.P. 

/PARTAB/ 

/TEMPOl/ 

/GTOOAT/ 

LOCATION 

/ADEBUG/ 

/TEMPOl/ 
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6.  CALLING  ROUTINE: 
FLOOR V 

7.  CALLEO  ROUTINES: 
ASSIGN 

CONVRT 

ERROR 

GETSYM 

IBITCK 

PUTSYM 

STATIN 

STATOT 

SYHOEF 

WLKBCK 


297 


LOOT  OVEN  ALL 
COLUMNS  Of  FIELD 
MATRIX 


EGFMAT 


(MOM) 


NAME:  ENDCAP 


(INPUT) 


I 


PURPOSE:  To  store  raw  data  GTO  end  cap  geometry  data  In  the  segment 
table  and  make  an  entry  In  the  point  table  for  later  geometry 
linkage  by  LNKGTD. 

METHOD:  Subroutine  WYRDRV  calls  ENDCAP  whenever  an  EC  command  Is 
encountered  In  the  geometry  data.  ENDCAP  Interprets  the  command 
Items  as  scanned  by  SCAN  and  extracts  values  for  end  cap  number  and 
(8,^)  direction  of  the  end  cap  normal  vector.  If  an  optional  Item 
Is  not  present,  the  values  from  the  last  EC  command  are  used. 
Optional  Items  are  Initially  set  to  zero. 

The  format  of  the  EC  command  Is 


EC  nn 

UcylJ 

[theta] 

[phi] 

1  2 

3 

4 

5 

NVAL/VAL  Index 

1 

2 

3 

IO/FO  Index 

NTINT 

NTINT 

NTFLPT 

NTFLPT 

argument  type 

(ITPARG) 


nn  »  user-assigned  end  cap  number 

cyl  =  cylinder  to  which  end  cap  is  attached:  (+  *  top  end 

| =  bottom  end 

theta  =  polar  angle  of  end  cap  normal  (degrees) 

]  phi  a  azimuth  angle  of  end  cap  normal  (degrees) 


< 


i 

\ 


* 


ENDCAP  places  the  following  values  In  SEGTBL  and  PNTTBL: 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 


SEGTBL  PNTTBL 

ITAG/IS  0 

0  ±cyl 

0  0 

THETA  (radians) 

PHI  (radians) 

0 

0 

0 

0 

0 

nn 


301 


I 


ENDCAP 


(INPUT) 


INTERNAL  VARIABLES: 

VARIABLE 

ERRFLG 

FO 

ICYLN 

IPT 

ISG 

ITAG 

ITPARG 

10 

NSGTBL 

NUMEC 

THETA. PH I 

THETA1.PHI1 

I/O  VARIABLES: 

A.  INPUT 
OGTORD 
IECTAG 
IP217 
ISOFF 
ISON 
LUPRNT 


DEFINITION 

Internal  flag  to  Indicate  command  error 
(Integer) 

Array  containing  real  values  of  arguments 

Number  of  cylinder  to  which  end  cap  Is 
attached 

Packed  word  containing  tag  and  end  cap 
numbers;  each  occupy  16  bits  of  the  word 

End  cap  segment  number  (assigned  by  SEGTBL) 

End  cap  tag  number 

Array  of  variable  types  (real.  Integer)  for 
argument  field 

Array  containing  Integer  values  of 

arguments 

Number  of  SEGTBL  entries  required  for 
ENDCAP  geometry 

User-assigned  end  cap  number 

Angles  defining  end  cap  normal  (degrees) 

Angles  defining  end  cap  normal  (radians) 

LOCATION 

/GEODAT/ 

/GTDOAT/ 

/GEODAT/ 

/ADEBUG/ 

/ADEBUG/ 

/ADEBUG/ 
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(INPUT) 


MXECAR 

/GTDDAT/ 

NARGS 

/SCNPAR/ 

NCOOE 

/SCNPAR/ 

NTFLPT 

/ADEBUG/ 

NT  I  NT 

/ADEBUG/ 

NVAL 

/SCNPAR/ 

VAL 

/SCNPAR/ 

OUTPUT 

LOCATION 

NOGOFG 

/SCNPAR/ 

6.  CALLING  ROUTINE: 
WYRDRV 

7.  CALLED  ROUTINES: 
ASSIGN 

PUTPNT 

PUTSEG 

STATIN 

STATOT 

WLKBCK 
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ENDCAP  (INPUT) 


1 


Page  1  of  2 
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I 


ENDCAP  (INPUT) 
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1.  NAME:  ENOIF 


(GTD) 


2.  PURPOSE:  To  compute  the  unobstructed  field  due  to  diffraction  off 
the  elliptical  cylinder  end  cap  rim  from  a  unit  source  In  the  given 
far-field  direction  or  to  a  near-field  observation  point. 

3.  METHOD:  ENOIF  is  the  driver  routine  which  directs  all  the  ray 
tracing,  physics  and  field  calculations  for  end  cap  diffraction. 
The  Uniform  Geometrical  Theory  of  Diffraction  (see  reference  A)  is 
used  to  compute  the  fields  diffracted  by  the  curved  edges  formed  by 
the  end  cap  disk  and  the  curved  surface  of  the  elliptic  cylinder. 
Details  are  given  on  pages  127-131  of  reference  B.  The  fields  from 
four  possible  diffraction  points  on  the  edge  are  superimposed  to 
give  the  total  diffracted  field  from  one  end  cap.  For  small  regions 
of  the  radiation  pattern,  it  is  possible  that  three  of  the  diffrac¬ 
tion  points  will  coalesce  Into  one  point  leaving  two  diffraction 
points  on  the  edge.  When  this  happens  a  finite  spike  (pseudo¬ 
caustic)  of  small  angular  extent  appears  in  the  pattern.  One  way  to 
correct  for  this  is  to  use  an  equivalent  current  solution  (see 
reference  C).  However,  because  this  is  costly  in  terms  of  computa¬ 
tion  time,  it  has  not  been  Included  at  present.  The  overall  solu¬ 
tion  is  not  affected  significantly  by  this  approximation.  Figure  1 
shows  the  end  cap  diffraction  point  coordinate  system  which  is  used. 


Figure  1.  Illustration  of  Diffraction  Point  Coordinate  System 


The  fields  are  first  Initialized  to  zero.  Then  the  possible 
diffraction  points  are  found  in  subroutine  OFPTCL.  The  code  then 
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EHDIF 


(GTD) 


steps  through  the  possible  diffraction  points  and  computes  the 
fields  for  each  point  separately. 

The  ray  path  Is  checked  for  obstructions.  If  the  path  is  shadowed, 
the  present  diffraction  point  is  Ignored  and  computations  begin  for 
the  next  point.  If  the  ray  path  is  clear,  the  source  field  pattern 
factor  is  found  by  calling  subroutine  SOURCE.  The  field  incident  at 
the  diffraction  point  Is  determined.  Then  the  end  cap  rim  spreading 
radii,  the  phase  factor,  and  the  diffraction  coefficient  (from  sub¬ 
routine  DZCOEF)  are  computed.  The  diffracted  field  perpendicular 
and  parallel  components  am  found  as  a  function  of  these  parameters 
and  the  incident  field.  Ine  diffracted  field  is  converted  to  theta 
and  phi  components  in  the  reference  coordinate  system  (RCS).  Sub¬ 
routine  XYZFLO  is  then  called  to  convert  the  field  to  x,  y,  z 
components  and  to  accumulate  it  with  fields  from  other  interactions. 

The  code  then  goes  to  the  next  diffraction  point  and  repeats  the 
field  computation  process  until  all  possible  diffraction  points  have 
been  considered.  If  the  debug  option  is  on,  the  total  field  due  to 
end  cap  diffraction  is  printed  on  file  LUPRNT.  Control  is  then 
returned  to  the  calling  routine. 

4.  INTERNAL  VARIABLES: 


VARIABLE 


DEFINITION 


AE 

CBO 

CPE 

CTE 

CTHI 

CV 

D 

DH 


Radius  of  curvature  of  edge  at  diffraction 
point  in  end  cap  plane 

Cosine  of  BO  (dot  product  of  diffracted  ray 
and  z  axis  of  diffraction  point  coordinate 
system) 

Cosine  of  PHER 
Cosine  of  THER 

Dot  product  of  incident  ray  propagation 
direction  unit  vector  and  cylinder  unit 
normal 

Cosine  of  VR 

X,Y,Z  components  of  propagation  direction 
after  diffraction  in  RCS 

Diffraction  coefficient  for  hard  boundary 
condition 
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(GTD) 


DHIT 

Distance  from  source  to  nearest  hit  point 
(from  subroutine  PLAINT) 

01 

X,Y,Z  components  of  unit  vector  of  incident 
ray  propagation  direction  in  RCS 

OS 

Diffraction  coefficient  for  soft  boundary 
condition 

EDPH 

Phi  component  of  diffracted  E-field  in  RCS 

EDPHA 

Field  value  amount  of  phi  component  to 
subtract  off  EDPHB  so  that  EDPHB  is  the  phi 
component  for  the  end  cap  diffracted  field 
from  the  diffraction  point  under 
consideration 

EDPHB 

Phi  component  of  diffracted  field  in  RCS 
from  the  diffraction  point  under 
consideration 

EDPP 

Component  of  diffracted  field  parallel  to 
edge 

EDPR 

Component  of  diffracted  field  perpendicular 
to  edge 

EDTH 

Theta  component  of  diffracted  E-field  in 
RCS 

EOTHA 

Field  value  amount  of  theta  component  to 
subtract  from  EDTHB  so  that  EDTHB  is  the 
theta  component  for  the  end  cap  diffracted 
field  from  the  diffraction  point  under 
consideration 

EDTHB 

Theta  component  of  diffracted  field  in  RCS 
from  the  diffraction  point  under 
consideration 

EF 

Theta  component  of  incident  field  pattern 
factor  in  RCS 

EG 

Phi  component  of  incident  field  pattern 
factor  in  RCS 

EIPP 

Component  of  incident  E-field  parallel  to 
edge 
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EIPR 

EIX,EIY,EIZ 

EM 

EX,EY,EZ 

FLDMAG 

FN 

I 

LHIT 

NC 

NCC 

PH 

PHEOR 

PHER 

PHEX.PHEY.PHEZ 

PHIR 

R 

RG 


END  IF  (GTO) 


Component  of  incident  E-fleld  perpendicular 
to  edge 

X,Y,Z  components  of  incident  field  pattern 
factor 

Normalization  constant  for  z  axis  of 
diffraction  point  coordinate  system 

X,Y,Z  components  defining  unit  edge  vector 
(z  axis  of  diffraction  point  coordinate 
system) 

Field  magnitude 
Wedge  angle  number 
DO  loop  variable 

Set  true  if  ray  hits  a  plate  (from 
subroutine  PLAINT) 

End  cap  where  diffraction  occurs 

Sign  change  variable 

Complex  phase  coefficient 

Phi  component  of  diffracted  ray  direction 
in  diffraction  point  coordinate  system 

Phi  component  of  incident  ray  propagation 
direction  in  diffraction  point  coordinate 
system 

Polarization  unit  vector  in  phi  direction 
for  incident  or  diffracted  ray  in  diffrac¬ 
tion  point  coordinate  system  in  x,y,z  RCS 
components 

Phi  component  of  Incident  ray  direction  in 
RCS 

Parameter  used  in  diffraction  coefficient 
calculation 

Radius  of  curvature  of  cylinder  surface  at 
diffraction  point  in  x-y  plane 
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RGAE 

RRN 

SBO 

SNF 

SPE 

SPM 

SPX.SPY.SPZ 

SSBO 
STE 
S  V 

T1.T2.T3 

THEDR 

THER 

THEX.THEY.THEZ 

THIR 


Radius  of  curvature  of  edge  at  diffraction 
point  in  end  cap  plane 

Parameter  used  in  diffraction  coefficient 

calculation 

Sine  of  BO 

Distance  between  diffraction  point  and 

near-field  observation  point 

Sine  of  PHER 

Distance  between  diffraction  point  and 

source  location 

X,Y,Z  components  of  unit  vector  of  propaga¬ 
tion  direction  of  incident  ray 

Sine  of  BO  squared 

Sine  of  THER 

Sine  of  VR 

X,Y,X  components  defining  the  incident  (or 
diffracted)  ray  propagation  direction  in 
diffraction  point  coordinate  system 

Theta  component  of  diffracted  ray  direction 
in  diffraction  point  coordinate  system 

Theta  component  of  Incident  ray  propagation 
direction  in  diffraction  point  coordinate 
system 

Polarization  unit  vector  In  theta  direction 
for  incident  or  diffracted  ray  In  diffrac¬ 
tion  point  coordinate  system  in  x,y,z  RCS 
components 

Theta  component  of  incident  ray  direction 
in  RCS 


TOP  Computational  variable 

UB  X.Y.Z  component  of  unit  vector  tangent  to 

cylinder  at  diffraction  point  (2-D) 

UN  X.Y.Z  component  of  unit  normal  to  cylinder 

at  diffraction  point  (2-D) 
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UNEM 

UNEX.UNEY.UNEZ 

V 

VR 

VXS 

XC 

XEX.XEY.XEZ 

XSS 

YEX.YEZ 

I/O  VARIABLES: 
A.  INPUT 
A 
B 

CO 

CNC 

CTC 

D 

DP 

DT 


Normalization  constant  for  edge  unit  normal 
NE 

X,Y,Z  components  of  unit  normal  to  edge  In 
end  cap  plane  In  RCS 

El  1  Ijr  tlcal  angles  defining  (up  to)  four 
diffraction  points  on  end  cap  NC 

Elliptical  angle  defining  diffraction  point 
in  RCS  x-y  plane 

X,Y,Z  components  of  unit  vectors  defining 
source  coordinate  system  axes  directions  In 
RCS 

X,Y,Z  components  of  diffraction  point  loca¬ 
tion  In  RCS 

X,Y,Z  components  defining  unit  vector  of  x 
axis  of  diffraction  point  coordinate  system 
(vector  normal  to  edge  and  parallel  to  end 
cap  plane) 

Source  location 

X  and  Z  components  defining  unit  vector  of 
y  axis  of  diffraction  point  coordinate 
system  (vector  normal  to  end  cap) 


LOCATION 

/GEOMEL/ 

/GEOMEL/ 

/COMP/ 

/GEOMEL/ 

/GEOMEL/ 

/DIR/ 

/THPHUV/ 

/THPHUV/ 
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ENOIF  (GTO) 


FLDPT 

/NEAR/ 

IDE BUG 

/TEST/ 

LNRFLD 

/NEAR/ 

LUPRNT 

/ADEBUG/ 

NC 

F.P. 

PHSR 

/dir/ 

PI 

/pis/ 

RPO 

/Pis/ 

SNC 

/GEOMEL/ 

THSR 

/dir/ 

TP  I 

/pis/ 

VXS 

/SORINF/ 

XS 

/SORINF/ 

ZC 

/GEOMEL/ 

B.  OUTPUT 

LOCATION 

EDPH 

F.P. 

EDTH 

F.P. 

CALLING  ROUTINE: 

GTODRV 

CALLEO  ROUTINES: 

ASSIGN 

NANOB 

BEXP 

NFD 

BTAN2 

PLAINT 

OFPTCL 

SMAGNF 

OZCOEF 

SOURCE 

STATIN 

STATOT 

TPNFLD 

WLKBCK 

XYZFLO 
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ENDIF 


(GTO) 
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COMPUTE  FIELD 
MAGNITUDE 


PRINT  FIELD  MAGNITUDE. 
THETA  AND  PHI 
COMPONENTS 
OF  TOTAL  END  CAP 
DIFFRACTED  FIELD  ON 
FILE  LUPRNT 

— — c. 


4 


1.  NAME:  ERROR  (GTD,  INPUT,  MOM,  OUTPUT) 

2.  PURPOSE:  Subroutine  to  Initiate  walk  back  and  checkpoint  In  case  of 
error  termination. 

3.  METHOD:  Not  applicable. 

4.  INTERNAL  VARIABLES:  Not  applicable. 

5.  I/O  VARIABLES: 


INPUT 

LOCATION 

CHKPNT 

/SYSFIL/ 

CHKWRT 

/SYSFIL/ 

IOFILE 

/IOFLES/ 

OUTPUT: 

NONE 

6.  CALLING  ROUTINES*: 
BACSUB  (3) 

BANDIT  (3) 

CNTGND  (3) 

CNVGTD  (1) 

COORDS  (1) 

DECOMP  (3) 

DMPDRV  (1,2, 3,4) 
EGFMAT  (3) 

ESPARM  (2) 

EXCDRV  (2,3) 


*1-INPUT 

2- GTD 

3- MOM 

4- OUTPUT 


317 


ERROR 


(GTD,  INPUT.  MOM.  OUTPUT) 


FABL04  (3) 

FLOOR V  (2.3.4) 
FLDOUT  (4) 

FNOREC  (1.2.3.4) 
GETARG  (1.2, 3,4) 
GETKWV  (1,2, 3,4) 
GETSYM  (1,2, 3, 4) 
LOOORV  (3) 

LUOORV  (3) 
MOVFIL  (1,2, 3,4) 
OPNFIL  (1,2, 3, 4) 
PLTDRV  (1) 

PRESCN  (1) 

PUTKWV  (1, 2,3,4) 
PUTPNT  (1) 

PUTSYM  (1,2, 3, 4) 
RDEFIL  (1,2, 3,4) 
RESTRT  (1) 

REBLCK  (3) 

SEJCON  (2,3) 
SETORV  (3) 

SMATRX  (3) 

SOLDRV  (3) 

*1- INPUT 

2- GTD 

3- MOM 

4- OUTPUT 
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ERROR 


(GTD,  INPUT,  MOM,  OUTPUT) 


SYMOEF  (1,2, 3, 4) 
SYMUPD  (1,2, 3, 4) 
SYSCHK  (1,2, 3, 4) 
TSKXQT  (1,2, 3, 4) 
WRTFIL  (1,2, 3, 4) 
ZGTORV  (2) 

ZIJDRV  (2,3) 
ZIJSET  (3) 

7.  CALLED  ROUTINES: 
CLSFIL 
STATFN 
STATIN 
STATOT 
TRCEBK 
WLKBCK 
WRTCHK 

♦1-INPUT 

2- GTD 

3- MOM 

4- OUTPUT 
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(6TD,  INPUT,  MOM,  OUTPUT) 


1.  NAME:  ESPARM  (GTO) 

2.  PURPOSE:  Obtain  location  and  excitation  of  field  sources  (ESRC 

command)  for  use  by  ZGTDRV  In  computing  fields  Incident  on  MOM 
geometries  (excitation  vector)  or  field  patterns  scattered  by  GTD 
geometries  (field  vector). 

3.  METHOD:  ESPARM  obtains  source  Information  by  decoding  NARGTB  for 

excitation  strength  (VTHETA.VPKI),  source  type  (IXTYPE),  location 
(R, THETA, PHI) ,  and  eccentricity  (ECC).  The  first  call  to  ESPARM 
resets  an  Internal- task  pointer  (MTASK)  to  the  present  task  plus  1. 
The  task  pointer  Is  decremented  and  the  task  type  Is  examined.  A 

LOOP  or  LABEL  task,  a  direct  manipulation  (DMP)  task  which  changes 
the  frequency,  or  a  GMDATA  task  which  changes  the  name  of  the 

geometry  data  set  terminates  the  search  up  through  the  task  table, 
and  the  routine  Is  exited. 

A  command  other  than  ESRC  causes  ESPARM  to  decrement  the  task 
pointer  and  continue  the  search  upward  through  NTSKTB. 

When  an  ESRC  command  Is  found,  the  excitation  data  set  name  and 
excited  geometry  data  set  name  are  checked.  If  either  Is  not  the 
same  as  requested,  the  task  pointer  is  decremented  and  the  search 
continues.  If  both  ESRC  data  sets  are  correct,  the  ESRC  command 

parameters  are  decoded  from  NARGTB,  and  the  source  location  and 

excitation  calculated. 

A  subsequent  call  to  ESPARM  continues  the  search  up  the  task  table 
for  the  next  proper  ESRC  command.  All  ESRC  commands  which 
contribute  to  a  field  value  may  be  found  by  this  method. 

4.  INTERNAL  VARIABLES: 


VARIABLE 

COSETA 

COSP 

COST 

ECC 

EM 

EPX.EPY.EPZ 


DEFINITION 

COS(ETAE) 

COS(PHI) 

COS(THETA) 

Source  eccentricity 

Source  excitation  magnitude 

X,Y,Z  components  of  cross-polarized  source 
field 
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ESPARM 


ESX,ESY,ESZ 

ETAE 

ETI.EPI 

ETR.EPR 

ICW 

I  DP 

I  POL 

ISU 

JCALL 

LOCGEO 

LOCLIT 

LOCNAM 

LOCTSK 

MTASK 

NAME 

NAMEG 

NAMGEO 

NDXARG 

NFRQ 

NGEOM 

NUMTSK 

PHI 


(GTD) 

XjY.Z  components  of  copolarized  source 
field 

Polarization  angle  of  source 

9,$  components  of  cross-polarized  source 
field 

0,$  components  of  copolarized  source  field 

IXTYPE  value  for  cylinder  wave 

IXTYPE  value  for  stiff  dipole  source 

Dipole  polarization  (l=x,  2=y,  3=z) 

IXTYPE  value  for  spherical  wave 

Number  of  calls  to  ESPARM  for  this  pattern 

Location  of  geometry  data  set  name  In 
NDATBL 

Location  of  literal  value  In  LITNUM 

Location  of  excitation  data  set  name  In 
NDATBL 

Location  of  task  in  NARGTB 

Internal  task  table  pointer 

Name  of  excitation  data  set  at  task  MTASK 

Name  of  geometry  data  set  at  task  MTASK 

Name  of  geometry  data  set  presently  being 
used 

Pointer  to  task  table 
NCODES  pointer  to  "FRQ" 

NCODES  pointer  to  default  geometry  name 
Task  number  of  task  pointed  to  by  MTASK 
Azimuthal  location  of  source 
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I 


ESPARM 


(GTD) 


R  Radial  location  of  source 


SINETA 

SIN(ETAE) 

SINP 

SIN(PHI) 

SINT 

SIN(THETA) 

THETA 

Polar  angle  location  of 

source 

VPHI 

$  -  component  of  source 

excitation 

VTHETA 

§  -  component  of  source 

excitation 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

OGTORO 

/GEOOAT/ 

FLTARG 

/ARGCOM/ 

INTARG 

/ARGCOM/ 

ISOFF 

/ADEBUG/ 

ISON 

/ADEBUG/ 

JCALL 

F.P. 

JTASK 

/FLDVAL/ 

KOLCOD 

/PARTAB/ 

KOLNAM 

/PARTAB/ 

KOIVAL 

/PARTAB/ 

KWNAHE 

/PARTAB/ 

LITNUM 

/PARTAB/ 

NAMGEO 

F.P. 

NAMSRC 

/FLDVAL/ 

NARGTB 

/PARTAB/ 

NCOOES 

/PARTAB/ 
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ESPARM 


(GTD) 


NDATBL 

/PARTAB/ 

NOPCOD 

/ADEBUG/ 

NTFLPT 

/ADEBUG/ 

NTKEYW 

/ADEBUG/ 

NTSKTB 

/PARTAB/ 

ZERO 

/ADEBUG/ 

OUTPUT 

LOCATION 

E 

/FLDVAL/ 

IERRF 

/ADEBUG/ 

ISRCE 

/FLDVAL/ 

JCALL 

F.P. 

X 

/FLDVAL/ 

Y 

/FLDVAL/ 

Z 

/FLDVAL/ 

6.  CALLING  ROUTINE: 
GETFLD 

7.  CALLED  ROUTINES: 
ASSIGN 

ERROR 

GETARG 

STATIN 

STATOT 

WLKBCK 
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I 


DECODE  ESRC  COMMAND 
PARAMETERS  FROM 
NARGTB  ENTRIES 


1.  NAME:  EXCORV 


(GTD) 


2.  PURPOSE:  To  calculate  the  GTD  portion  of  fields  Incident  on  a  MOM 
structure  from  a  field  source. 

3.  METHOD:  EXCDRV  examines  the  argument  list  for  data  sets  of  proper 
type.  If  no  excitation  data  set  Is  specified,  the  error  flag  Is  set 
and  the  routine  Is  exited.  If  a  geometry  data  set  Is  not  specified 
for  the  structure  to  be  excited,  an  error  message  Is  printed  and  the 
error  processed. 

The  contents  of  the  geometry  data  set  are  examined  next.  If  there 
are  no  MOM  objects  In  the  geometry,  an  excitation  vector  cannot  be 
generated.  In  this  case  EXCDRV  defines  a  null  data  set  so  that  any 
subsequent  EFIELD  command  can  use  the  (null)  data  set  name  as  Input 
to  compute  Incident  fields. 

An  Important  feature  of  EXCDRV  Is  Its  ability  to  add  together 
excitations  generated  by  different  sources.  If  two  (or  more) 
sequential  calls  to  EXCDRV  are  made  with  the  same  geometry  data  set 
name  and  at  the  same  frequency,  the  excitation  vectors  are  added. 
If  this  check  shows  any  Incompatibility  between  the  last  call  to 
EXCDRV  and  the  present  call,  the  excitation  data  set  Is  Initialized 
to  zero;  otherwise,  the  data  set  Is  Initialized  with  Its  previously 
calculated  data. 

Next,  the  Interaction  array  Is  checked  to  see  If  any  GTD  Inter¬ 
actions  were  specified.  If  not,  or  If  there  are  no  GTD  objects  In 
the  geometry  data  set,  the  GTD  contribution  to  the  excitation  vector 
Is  zero,  and  the  routine  exits. 

The  actual  values  of  a  field  excitation  are  computed  by  a  call  to 
ZGTDRV.  EXCDRV  sets  up  the  arguments  to  be  passed  to  ZGTDRV,  and 
ZGTDRV  returns  the  excitation  added  Into  the  TEMP  array.  Voltage 
excitation  Is  not  performed  until  MOM  module  execution. 

4.  INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 

ECC  Eccentricity  of  source 

FRQSAV  Excitation  frequency  default,  saved  from 

last  call  to  EXCORV 

I  Loop  Index  over  GTD  Interactions 

IBIT  Attribute  word  of  excitation  data  set 
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EXCDRV 


(STD) 


ICW 

IDP 

IGEQM 

II 

I0BS1.I0BS2 

ISW 

ITYPE 

IVS 

IXCNAM 

IXTYPE 

J 

JSRC1.JSRC2 

K 

KGBIT 

KJ 

LNKEXC 

LOCEXC 

LOCYRS 

NAMEXC 

NAMYRS 

NBIT 

NC 


Cylinder  wave  type  Identifier 

Dipole  source  type  Identifier 

Pointer  to  default  geometry  name  In  NCODES 
array 

Number  of  GTD  Interactions 

Limits  on  observation  points 

spherical  wave  type  Identifier 

Computation  type:  2  =  field  source,  geom¬ 
etry  observation 

Voltage  source  type  Identifier 

Source  type  label  array 

Source  type  number 

GTD  Interaction  Index 

Limits  on  source  points 

GTD  Interaction  Index 

Data  set  geometry  flag 

Array  of  GTD  Interactions 

Pointer  to  location  of  data  set  linked  to 
excitation  data  set  In  symbol  table 

Pointer  to  excitation  data  set  location  In 
symbol  table 

Pointer  to  geometry  data  set  location  In 
symbol  table 

User-defined  name  of  excitation  data  set 
(Internal  format) 

User-defined  name  of  geometry  data  set 
(Internal  format) 

Attribute  word  of  null  excitation  data  set 

Number  of  columns  for  excitation 
calculation 
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EXCDRV 


(GTO) 


NCELLS 

NCOLE 

NCOLS 

NDXARG 

NDXKWC 

NOXKWD 

NOXKWS 

NR 

NROWE 

NROWS 

NS 

NTASKE 

NTASKV 

NUMYRS 

NY 

VPHI 

VTHETA 

I/O  VARIABLES: 
A.  INPUT 
CUTE 
FLTARG 


Number  of  words  required  for  excitation 
calculation 

Number  of  columns  In  previously  defined 
excitation  data  set 

Number  of  columns  of  null  excitation  data 
set 

Pointer  to  excitation  parameter  In  task 

table 

Pointer  to  cylinder  wave  keyword 

Pointer  to  dipole  source  keyword 

Pointer  to  spherical  wave  keyword 

Number  of  rows  for  excitation  calculation 

Number  of  rows  In  previously  defined 

excitation  data  set 

Number  of  rows  In  null  excitation  data  set 

Name  of  geometry  data  set  (A6  format) 

Task  number  of  ESRC  command 

Task  number  of  VSRC  command 

Column  size  of  excitation  matrix 

Name  of  geometry  data  set  (A6  format) 

$  -  component  of  spherical  wave 

excitation.  Imaginary  part  of  dipole 
excitation 

§  -  component  of  spherical  wave, 

real  part  of  dipole  excitation 


LOCATION 

/AMPZIJ/ 

/ARGCQM/ 
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I 


EXCORV 


(GTD) 


FRQMHZ 

INTARG 

IPASS 

ISOFF 

ISON 

KBCPLX 

KBGEOM 

KBREAL 

KBSRCE 

KJGTD 

KJINT 

KOLB  IT 

KOLCOL 

KOLLNK 

KOLNAM 

KOLROW 

LSTARG 

LUPRNT 

NCODES 

NOATBL 

NOPCOO 

NPATCH 

NTEMPS 

NTFLPT 

NTSYMB 


/AMPZIJ/ 

/ARGCOM/ 

/ARGCOM/ 

/ADEBUG/ 

/ADEBUG/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/INTMAT/ 

/INTMAT/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/ARGCOM/ 

/ADEBUG/ 

/PARTAB/ 

/PARTAB/ 

/ADEBUG/ 

/SEGMNT/ 

/TEMPOl/ 

/ADEBUG/ 

/ADEBUG/ 
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EXCDRV 


(GTD) 


NUMGTD 

/GTODAT/ 

NWIRE 

/SEGMNT/ 

TEMP 

/TEMPOl/ 

TWOPI 

/AMPZIJ/ 

ZERO 

/ADEBUG/ 

B.  OUTPUT 

LOCATION 

FRQMHZ 

/AMPZIJ/ 

IERRF 

/ADEBUG/ 

NAMSRC 

/FLDVAL/ 

UPDBLK 

/SEGMNT/ 

WAVLGH 

/AMPZIJ/ 

WAVNUM 

/AMPZIJ/ 

CALLING  ROUTINE: 

TSKXQT 

CALLED  ROUTINES: 

ASSIGN 

PRTKJ 

CONVRT 

PUTSYM 

ERROR 

STATIN 

GETARG 

STATOT 

GETGEO 

SYMDEF 

GETSEG 

SYMUPD 

GETSYM 

WLKBCK 

IBITCK 

ZGTDRV 
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EXCDRV  (GTD) 
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1.  NAME:  EXCDRV 


(MOM) 


2.  PURPOSE:  To  calculate  the  MOM  portions  of  fields  Incident  on  a  MOM 
structure  from  a  field  source  and/or  the  direct  excitation  from 
voltage  sources. 

3.  METHOD:  The  argument  list  is  retrieved  and  examined.  Should  there 
be  no  MOM  objects  in  the  geometry,  an  excitation  vector  cannot  be 
defined.  A  warning  message  is  printed  and  the  routine  exited. 

Since  there  is  a  possibility  that  GTD  excitation  data  may  already 
reside  in  the  data  set,  care  is  ta.:en  not  to  overwrite  these  data 
but  merely  add  to  them.  If  the  data  set  has  been  defined  already, 
or  if  GTO  data  are  in  the  data  set,  the  data  set  is  not 
re-initialized. 

The  excitation  type  is  checked.  Valid  excitations  are  spherical 
wave,  plane  wave,  and  voltage  source.  The  first  two  types  are  wave 
type  excitations,  which  are  computed  by  subroutine  SPWDRV.  The 
voltage  source  excitations  are  generated  internally  according  to  the 
segments  or  tags  specified  by  the  VSRC  command.  The  excitation  is 
given  by  the  voltage  divided  by  the  segment  length,  and  a  flag  is 
set  in  the  geometry  data  set  to  signal  that  the  segment  is  excHed 
with  a  voltage  source.  The  data  are  stored  in  volts/meter. 

4.  INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 

ECC  Eccentricity  of  plane  wave  or  spherical 

wave  source 

ETAE  Angle  of  principal  polarization  component 

with  respect  to  the  6  direction  (degrees) 

FRQSAV  Excitation  frequency  default,  saved  from 

last  call  to  EXCDRV 


I 


I 

IBIT 

IBLK 

ICW 

IDP 

IGEOM 


Loop  index  over  voltage  source  excitation 

Attribute  word  of  excitation  data  set 

Geometry  data  set  block  number 

Cylinder  wave  type  identifier 

Dipole  source  type  identifier 

Pointer  to  default  geometry  name  in  NCODES 
array 
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EXCORV 


(MOM) 


I  LOCI 
IL0C2 

IS 

ISEG1 

ISEG2 

ISGWRD 

ISW 

ITAG1 

ITAG2 

I  VS 

IXCNAM 
rxrvPE 
JTAG 
KGB  IT 
LNKEXC 

LOCECC 

LOCEXC 

LOCYRS 

MDX 


Pointer  to  real  part  of  excitation  (one 
element)  in  TEMP 

Pointer  to  imaginary  part  of  excitation 
(one  element)  in  TEMP 

Numbrr  of  segment  being  excited 

Beginning  of  segment  list  of  voltage  exci¬ 
tation 

trj  of  segment  list  for  voltage  excitation 

First  ISGTBL  word,  containing  tag  and  seg¬ 
ment  numbers 

Spherical  wave  type  identifier 

Beginning  of  tag  list  for  voltage 
excitation 

End  of  tag  list  for  voltage  excitation 

Voltage  source  type  identifier 

Source  type  label  array 

Source  type  number 

Tag  identifier  of  segment 

Data  set  geometry  flag 

Pointer  to  location  of  ^ata  set  linked  to 
excitation  data  set  in  symbol  table 

Pointer  to  INTARG  for  ECC  value 

Pointer  to  excitation  data  set  location  in 
symbol  table 

Pointer  to  geometry  data  set  1  -at  Ion  in 
symbol  table 


N 


Keyword  name  of  tag  or  segment  identifier 

Hollerith  format  of  tag  or  segment  Identl- 
f  ier 


EXCDRV 


(MOM) 


NAMEXC 

NARGP1 

NARGS 

NCELLS 

NCOLE 

NOX 

NOXARG 

NDXKWC 

NDXKWD 

NDXKWS 

NE 

NROWE 

NS 

NTASKE 

NTASKV 

NUMYRS 

NXTARG 

NY 

PHI 

R 

SEGLGH 


User-defined  name  of  excitation  data  set 
(internal  format) 

NARGS  +  1 

Number  of  arguments  in  excitation  list 

Number  of  words  required  for  excitation 
calculation 

Number  of  columns  in  previously  defined 
excitation  data  set 

Keyword  number  of  tag  or  segment  identifier 

Pointer  to  excitation  parameter  in  task 
table 

Pointer  to  cylinder  wave  keyword 

Pointer  to  dipole  source  keyword 

Pointer  to  spherical  wave  keyword 

Hollerith  format  of  excitation  type 

Number  of  rows  in  previously  defined  exci¬ 
tation  data  set 

Name  of  geometry  data  set  (A6  format) 

Task  number  of  ESRC  command 
Task  number  of  VSRC  command 
Column  size  of  excitation  matrix 
NARGS  +  1 

Name  of  geometry  data  set  (A6  format) 

Aximuth  angle  of  source  location  (degrees) 
Radius  of  source  location  (meters) 

Length  of  excited  segment  (meters) 

Polar  angle  of  source  location  (degrees) 


THETA 


EXCORV 


(MOM) 


VMAG 


Magnitude  of  field  or  voltage  excitation 


VPHI 

VTHETA 


^-component  of  spherical  wave  exci¬ 
tation,  imaginary  part  of  voltage  excitation 

A 

0 -component  of  spherical  wave  exci¬ 
tation,  real  part  of  voltage  excitation 


I/O  VARIABLES 
A.  INPUT 
CUTE 
DGTORO 
FLTARG 
FRQMHZ 
INTARG 
IP217 
I  PASS 
ISGTBL 
ISOFF 
ISON 
KBCPLX 
KBGEOM 
KBREAL 
KBSRCE 
KJGTD 
KJMOM 
KOLB IT 
KOLCOL 


LOCATION 

/AMPZIJ/ 

/GEODAT/ 

/ARGCOM/ 

/AMPZIJ/ 

/ARGCOM/ 

/GEODAT/ 

/ARGCOM/ 

/SEGMNT/ 

/ADEBUG/ 

/ADEBUG/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/INTMAT/ 

/INTMAT/ 

/PARTAB/ 

/PARTAB/ 
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(MOM) 


KOLLNK 

/PARTAB/ 

KOLNAM 

/PARTAB/ 

KOLROW 

/PARTAB/ 

KWNAME 

/PARTAB/ 

KWSEGS 

/PARTAB/ 

KWTAGS 

/PARTAB/ 

LSTARG 

/ARGCOM/ 

LUPRNT 

/ADEBUG/ 

MAXBLK 

/SEGMNT/ 

MAXSEG 

/SEGMNT/ 

NCODES 

/PARTAB/ 

NDATBL 

/PARTAB/ 

NDX8LK 

/SEGMNT/ 

NOPCOO 

/ADEBUG/ 

NPATCH 

/SEGMNT/ 

NTEMPS 

/TEMPOl/ 

NTFLPT 

/ADEBUG/ 

NTSYMB 

/ADEBUG/ 

NUMARG 

/ARGCOM/ 

NUMSEG 

/SEGMNT/ 

NUIRE 

/SEGMNT/ 

SEGTBL 

/SEGMNT/ 

TEMP 

/TEMPOl/ 

TWOPI 

/AMPZIJ/ 

ZERO 

/ADEBUG/ 
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B.  OUTPUT 

LOCATION 

FRQMHZ 

/AMPZIJ/ 

IERRF 

/ADEBUG/ 

NAMSRC 

/FLOVAL/ 

SEGTBL 

/SEGMNT/ 

TEMP 

/T  .MP01/ 

UPDBLK 

/SEGMNT/ 

WAVLGH 

/AMPZIJ/ 

WAVNUM 

CALLING  ROUTINE: 

TSKXQT 

/AMPZIJ/ 

CALLED  ROUTINES: 

ASSIGN 

GETSEG 

STATIN 

CONVRT 

GETSYM 

STATOT 

ERROR 

IBITCK 

SYMDEF 

GETARG 

PRTKJ 

SYMUPD 

GETGEO 

PUTSYM 

WLKBCK 

SPWDRV 

ZZXDUM 
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Itj 


ii 


MOM  \ 

OBJECTS  IN  GEOMETRY 


EXCITATION 
DATA  SET  DEFINED 


DEFINE  EXCITATION 
DATA  SET 


GTD 

DATA  ALREADY 
IN  DATA  SET 


r  ROOM  ^ 
FOR  EXCITATION 
IN  TEMP  ARRAY 


INITIALIZE 
EXCITATION  DATA 
TO  ZERO 


LINK  EXCITATION 
OATA  SET  TO 
GEOMETRY  OATA  SET 


RETRIEVE  GEOMETRY 
OATA 


I 


I 


1.  NAME:  FABL02 


(INPUT) 


2.  PURPOSE:  Contains  output  for  Input  Language  Processor  (ILP) 

routines. 

3.  METHOD:  FABL02  receives  an  error  number  and  prints  out  an  error 
message  for  this  number. 


4.  INTERNAL  VARIABLES: 
ERRMSG 


IWRDS3 

NPRMSG 

5.  I/O  VARIABLES: 

A.  INPUT 

IWOROS 

LUPRNT 

6.  CALLING  ROUTINES: 


FNDARG 


LITSCH 

PARSE 

PLIST 

SYMLIT 


SYMSCH 


7.  CALLED  ROUTINES: 
ASSIGN 
STATIN 
STATOT 


WLKBCK 


Two-dimensional  array  containing  error 
messages 

Error  number 

Number  of  words  for  each  message 


LOCATION 

/ADEBUG/ 

/ADEBUG/ 


FABL02 


(INPUT) 


PRINT 

MESSAGE 


1.  NAME:  FABL04 


(MOM) 


PURPOSE:  Subroutine  FABL04  Interfaces  with  the  PRINT  command  to 

write  out  requested  Information. 

METHOD:  Requests  for  printing  stored  values  of  variables  are  Inter¬ 
faced  through  the  PRINT  command  and  routine  PRTSYM.  The  routine  Is 
functionally  divided  Into  three  areas  to  provide  specific  printing 
capabilities  related  to  the  following  categories  of  requests: 

(a)  Print  a  single  variable 

(b)  Print  a  single  row  or  column  variable 

(c)  Print  a  matrix  variable 


INTERNAL  VARIABLES: 
VARIABLE 


DATTYP 


FMTFLD 


I  CASE 
INCALL 
ITYPE 
NDXFLD 


NPRFMT 


I/O  VARIABLES: 
A.  INPUT 
DBGPRT 
INCALL 
IWORDS 
NUMWRD 


DEFINITION 

Array  containing  data  types 

The  format  statement  is  built  in  this  array 

Array  containing  variable  format  for  output 
data 

Array  containing  format  size 
Call  number  for  the  type  of  output 
Type  of  data  to  be  printed 
Index  to  the  field  type 
Size  of  the  FMT  array 


LOCATION 

/ADEBUG/ 


/ADEBUG/ 

/ADEBUG/ 


WORDS 


/ADEBUG/ 


B.  OUTPUT: 


1 


FABL04 


6.  CALLING  ROUTINE: 
PRTSYM 

7.  CALLED  ROUTINES: 
ASSIGN 

ERROR 

STATIN 

STATOT 

WLKBCK 
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FABL04 


VALID  CALL 


PRINT 

ERROR 

MESSAGE 


GENERATE 

WALKBACK 

ERROR 


STOP  77 


ICALL  =  1 

Y„ 

ICALL  =  2 


30^  N 
.  ICALL  "  3 


ICALL -  4 
.  OR  tt  _ 


PRINT  SYMBOL 


PRINT  LINEAGE 

1000 

RETURN 


PRINT 

OATA 

TYPE 


1. 

2. 


NAME:  FARFLO 


(MOM) 


PURPOSE:  To  calculate  the  far  electric  field  l  neglecting 


(■ 


•jkr\ 

H,n 


free  space  or  over  various  types  of  grounds,  where  the  ground  effects 
are  Included  by  means  of  the  Fresnel  reflection  coefficients. 


3.  METHOD:  The  far  electric  field  due  to  line  currents  can  be  written 


E  <r) 


imQ 


e2±l 

4nr 


I(r’)  dl) 


) 


-  fei*  r,iU’  )  dt  j 

where  r  Is  the  position  vector  of  the  observation  point,  r'  is  the 
p  >s1t1on  vector  of  the  source  point,  E  Is  In  the  direction  of 
propagation  with  a  magnitude  of  2ir/X.  Specialized  to  straight  wire 
segments,  as  used  in  the  GEMACS  formulation. 


E  (O  -  jk  ’  6i  |k  (k  •  Q.)  -  Qi  J  (Eq.  1) 


where  no  free  space  impedance,  R^  Is  the  position  vector  of  the 
center  of  the  ith  segment  and 


6j  -  T  ei2'<*  •  "i11  (-ij— ■)  xat 

1  1  -(s/2)  \  K  / 

where  u^  »  cos  <*)  cos  Si  x  +  cos  sin  8(  y  +  sin  aj  z,  which  is 
the  reference  direction  of  the  1*h_  segment  with  the  angles  defined 
as  shown  In  figure  1,  Xtu^  =  ?'  -  R),  and  s  is  the  segment  length. 
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Figure  1.  Segment  Orientation 


=  A.  +  Bj  sin  2nt  +  Cj  cos  2nt 


integration  of  yields 


-x  sinirw.s  /  sinn(l  +  w.; 

=  u  .  A.  -  +  j  B.  |  -rz — T-. — - r- 

11  1  irw.  J  l  y  2  tt  ( 1  +  w^) 

"I 

(sinn(l  +  w-)s  sinir(l  -  w^s  \ 

_____  +  _____  J 


where 


wi  =  ~k  *  ui 


sinn(l  -  w. )s 
2tt(  1  -  w.) 


(Eq.  2) 


(Eq.  3) 


Note.thetermC  (k  •  Qj  In  equation  (1)  Is  completely  radial  and 
cancels  the  radial  component  of  Qj.  This  term  is  ignored  In  FARFLD 
since  the  desired  transverse  components  will  be  computed  by  a  dot 
product.  Thus,  for  program  use  only  and  with  the  understanding  that 
only  tranverse  components  will  be  used,  we  write 


(?)  -  -j  ^  d!ll  £  ■  Si  Qj  <£"-  «> 

'  i-1 


I 
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(MOW) 


The.far  electric  field  at  a  location  r  due  to  a  surface  current 
density  J  on  a  patch  of  area  A  Is: 


where: 

k  =  2ir/X 
£  =  r/|r| 
k  =  k  £ 

no  =  376  (free  space  Impedance)  ohms 
r  =  vector  from  patch  center  to  observation  point 


The  total  field  is  found  by  summing  the  contribution  from  each 
patch  and  wire  segment. 

Ground  effects  are  Included  by  means  of  an  image  and  the  appro¬ 
priate  reflection  coefficients.  The  z  component  of  the  segment 
reference  direction  vector  u  changes  sign  for  the  image  as  shown  in 
figure  2. 


Figure  2.  Fields  Oue  to  a  Segment  and  Its  Image 


Using  this  convention,  the  reflected  electric  field  can  be  written 
in  terms  of  the  image  field  (E*)  as 
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ER  =  Rj^  (E1  •  p)  p  +  Rj  (  E1  -  (E1  •  p)  p 


=  R|  ,  E1  +  (R_l  -  R,  jHE1  •  p)  p 


where  p  is  a  unit  vector  perpendicular  to  the  plane  of  Incidence, 
and 


Ri 


I  I 


cos  9 

1 - 

'  V  eE 

sin2 

0 

cos  0 

+  e 

sin2 

0 

£E 

COS  0  -  yj 

£E 

sin2 

0 

eE 

cos  0  +  , 

sin2 

0 

are  the  reflection  coefficients  for  the  image  field  perpendicular 
and  parallel,  respectively,  to  the  plane  of  incidence,  with 


el  3°1 


and  0  measured  from  z. 

Note:  the  "electrical  field"  calculated  by  the  routine  does  not 
p-jkr 

include  the  term  — — . 


actually  calculated. 


That  is,  in  equation  (1),  E(?)  is 


4.  INTERNAL  VARIABLES: 
VARIABLE 


DEFINITION 


slnTrw^  s 


All 

AIR 


Location  of  the  imaginary  part  of  A^ 
Location  of  the  real  part  of  A^ 
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n 

H 


CCX,  CCY,  CCZ 


CIX,  CIY,  CIZ 


CONST 


INCORE 


JX,  JY,  JZ 
KOOTO 


EL  (BOO-TOO) 

Location  of  the  imaginary  part  of 
Location  of  the  real  part  of  B^ 

(sin  ir  (1  -  s  (1  -  Wj)) 

tt  s  (1  -  v^) 

EL  (BOO  +  TOO) 

Store  CIX,  CIY,  CIZ 

(R  -  R,  j)  (E1  •  p)p 

Location  of  the  Imaginary  part  of  Cj 

Location  of  the  real  part  of  C^ 

N  jk  •  R. 

Main  use:  X  e  Q. 

i=l  1 

-j  (n0/4w) 


r/(e'ikr)  Ep 
r/(e'Jkr)  E„ 

Intermediate  calculation 

Logical  .TRUE,  when  A.,  B.,  C.  are  stored 
In  core  1  1 

X,Y,  and  2  components  of  current 

Jc  •  3 

Location  of  the  Imaginary  part  of  A^ 

Location  of  the  real  part  of  A^ 

Location  of  the  Imaginary  part  of 


i 
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LBR 

LCI 

LCR 

NWIRE 

OMEGA 

PHI 

PHX,  PHY 

RI 

RR 

RRH 

RRV 

SILL 

STOR 

THET 

THX,  THY,  THZ 
TOO 

TOP 

ZRSIN 

I/O  VARIABLES 
A.  INPUT 
DBGPRT 
INCORE 
IPERF 
KSYMP 


Location  of  the  real  part  of  B^ 
Location  of  the  Imaginary  part  of 
Location  of  the  real  part  of 
Number  of  wire  segments 

W1 

$  In  radians 
X  and  Y  components  of  $ 

Imaginary  part  of 
Real  part  of 

R1 

Rl  I 

Intermediate  variable 
jpQ  2it  c 
9  In  radians 
X,Y,Z  components  of  0 

sin  n(l  +  w^ )s 

TTTTT^r 

Intermediate  variable 
Intermediate  variable 

LOCATION 

/ADEBUG/ 

F.P. 

/AMPZIJ/ 

/AMPZIJ/ 
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LOCAII 

/FLDCOM/ 

LOCAIR 

/FLDCOM/ 

LOCBII 

/FLDCOM/ 

LOCBIR 

/FLDCOM/ 

LOCCII 

/FLDCOM/ 

LOCCIR 

/FLDCOM/ 

NUMSEG 

/SEGMNT/ 

PHI 

F.P. 

SEGTBL 

/SEGMNT/ 

TEMP 

/TEMPOl/ 

THET 

F.P. 

OUTPUT 

LOCATION 

EPH 

F.P. 

ETH 

F.P. 

6.  CALLING  ROUTINE: 
FLDORV 

7.  CALLED  ROUTINES: 
ASSIGN 

GETSEG 

STATIN 

STATOT 

WLKBCK 
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^  FARFLD  J 


VARIABLE  SET  UP 
0.*.R 


LOOP  OVER 
STRUCTURE 
AND  IMAGE 


SET  UP 
REFLECTION 
COEFFICIENT  FOR 
PLANAR  GROUND 


SUM  DIRECT  AND 
IMAGE  TERM 
MODIFIED 
BY  REFLECTION 
COEFFICIENT 


NAME:  FCT  (GTO) 

PURPOSE:  This  function  computes  the  Integrand  for  various  Inte¬ 
grals  used  to  compute  the  diffraction  coefficient  for  an  elliptic 
cylinder. 

METHOD:  Although  five  different  Integrands  could  be  calculated,  for 
the  present  code  only  the  Integrand  defined  for  ID  equal  to  three  Is 
used.  This  function  calculates  FCT  which  Is  given  by: 


FCT { x )  =  A2sin2x  +  B2cos2x  . 


FCT  Is  used  by  subroutine  DQG32  and  by  the  near-field  calculations 
for  determining  the  creeping  wave  ray  path  on  the  cylinder,  to 
compute  the  arc  length  between  two  points  on  the  elliptic  cylinder 
In  a  plane.  This  two-dimensional  x-y  plane  arc  length  Is  given  by: 


t 


FCT(v)dv  . 


The  driver  routines  which  determine  the  creeping  wave  ray  path  for 
the  cylinder  scattered  field  use  the  3-dlmenslonal  arc  length: 


t  =  ISAS  I 


FCT( v)dv 


to  determine  the  length  of  the  creeping  wave  in  far-fleld  calcu¬ 
lations.  SAS  Is  defined  In  section  4. 

INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 

A  Cylinder  radius  along  x-axIs 

A2  The  square  of  the  radius  of  the  elliptic 

cylinder  on  the  x-axIs 
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B 

B2 

CS 

F 

FCT 

10 

SAS 

SN 

SNA 


5.  I/O  VARIABLES: 

A.  INPUT 
A 

B 

ID 

SAS 

X 

B.  OUTPUT 
FCT 

6.  CALLING  ROUTINES: 
DQG32 

RPLSCL 

7.  CALLED  ROUTINES: 
None 


Cylinder  radius  along  y-axls 

The  square  of  the  radius  of  the  elliptic 
cylinder  on  the  y-axls 

Cosine  of  x 

SQRT( (A*SIN(VR) )**2+(B*C0S(VR) )**2) 

Returned  Integrand 

Flag  for  which  FCT  function  to  use 

The  sine  of  u  minus  THSR,  where  THSR  Is  the 
theta  angle  of  the  observation  direction  In 
RCS  relative  to  the  cylinder  axis  In  radians 

Sine  of  x 

The  absolute  value  of  the  sine  of  the  angle 
measured  from  the  negative  z-axls  of  the 
cylinder  to  the  direction  of  propagation 

The  argument  of  the  Integrand  defining  the 
elliptic  angle 

LOCATION 

/GEOMEL/ 

/GEOMEL/ 

/GTD/ 

/gtd/ 

F.P. 

LOCATION 

FUNCTION 

SCLRPL 

SCTCYL 
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1 

r 

COMPUTE  FCT 


1.  NAME:  FFCT  (GTD) 

2.  PURPOSE:  This  function  Is  used  to  calculate  the  transition  function 
for  the  corner  diffraction  coefficient. 

3.  METHOD:  The  transition  function  for  the  edge  and  corner  diffraction 
coefficients  Is  given  by  (see  reference  A): 


FFCT(x)  =  2jlv/T|e:**  I  e~^X  d  t 

In fx  I 


This  can  also  be  written  as  (see  reference  B): 


FFCT(x) 


=  j y/2 it  |  xT  ejx  ( 0 . 5- jO.  5)  -  (c@L*I 


FFCT (DEL) 


CFR 

Computed  in 
subroutine 
FRNELS 


S 


SFR 

Computed  in 
subroutine 
FRNELS 


so  that  we  can  use  the  Fresnel  Integral: 

«  ~j  f  t2 

J  e  dt  =  C(a)  -  jS(a) . 

0 

If  the  absolute  value  of  x,  denoted  by  DEL,  Is  greater  than  10,  FFCT 
Is  set  equal  to  1  +  Oj. 

4.  INTERNAL  VARIABLES: 

VARIABLE  0EFINITI0N 

CFR  Real  part  of  Fresnel  Integral 

DEL  Argument  of  transition  function 
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FFCT 

Transition  function 

PI 

IT 

S 

Argument  of  Fresnel  integral 

SDEL 

SQRT  (ABS(DEL) ) 

SFR 

Imaginary  part  of  Fresnel  integral 

TPI 

2it 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

DEL 

F.P. 

PI 

/PIS/ 

TPI 

/PIS  / 

B.  OUTPUT 

LOCATION 

FFCT 

COMPLEX  FUNCTION 

6.  CALLING  ROUTINES: 

DICOEF 

DIFPLT 

DPLRPL 

RPLDPL 

7.  CALLED  ROUTINES: 

BEXP 

FRNELS 

8.  REFERENCES: 

A.  R.  G.  Kouyoumjian  and  P.  H.  Patbak,  "A  Uniform  Geometrical 
Theory  of  Diffraction  for  an  Edge  in  a  Perfectly  Conducting 
Surface,"  Proc.  IEEE,  Vol.  62,  November  1974,  pp.  1448-1461. 

B.  The  BOM  Corporation,  "Interim  Report  for  Addition  of  GTD  to 
GEMACS,"  Vol  II,  pp.  E- 14  to  E-16,  Contract  F30602-81-C-0084, 
B0M/A-81-676-TR,  January  1982. 
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CALCULATE  FRESNEL 
INTEGRAL 

FRNELS 


CALCULATE  FFCT 


NAME:  FKARG 


(GTD) 


PURPOSE:  To  compute  a  parameter  needed  In  the  diffraction  coef¬ 
ficient  for  the  elliptic  cylinder. 

METHOD:  This  subroutine  computes  the  parameter  used  in  the  diffrac¬ 
tion  coefficient  to  determine  the  fields  scattered  from  the  elliptic 
cylinder.  This  parameter  Is  given  by  (see  reference  A): 


.  f  1/3  -2/3  .. 

E  =  J  it  p  '  dt, 

Qi  9 


where  pg  is  the  radius  of  curvature  of  the  elliptic  cylinder  In  the 
plane  of  propagation.  This  can  also  be  written  as: 


5  -  .^(AB^Uinal1/3  r>f  ,  d»  , 

v i  yj  A2sin2v  +  B2cos2v 

where 

E,  =  SKWIG 
a  =  ALR 
vi  =  VIR 
v  f  =  VFR. 

FKARG  solves  the  second  equation.  The  constants  are  computed  In 
FKARG.  The  Iteration  is  accomplished  in  subroutine  DQG32.  The  two 
terms  are  multiplied  In  FKARG. 

INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 

A  Radius  of  elliptic  cylinder  along  x-axIs 

ALR  Angle  measured  from  negative  z-axls  In  the 

direction  of  propagation 


ANS 


The  evaluated  Integral 


FKARG 


(GTO) 


B 

FUNI 

PI 

SKWIG 

VFR 

VIR 

5.  I/O  VARIABLES: 

A.  INPUT 
A 

ALR 

B 

PI 

VFR 

VIR 

B.  OUTPUT 
SKWIG 

6.  CALLING  ROUTINES: 
RPLSCL 

SCLRPL 

SCTCYL 

7.  CALLED  ROUTINES: 
DQG32 

FUNI 


Radius  of  elliptic  cylinder  along  y-axls 
Integrand  of  the  integral 
ir 

Parameter  used  to  define  curved  surface  at 
the  point  of  diffraction 

Elliptical  angle  defining  the  diffraction 
angle  position  on  the  cylinder 

Elliptical  angle  defining  the  incident 
angle  position  on  cylinder 


LOCATION 

/GEOMEL/ 

F.P. 

/GEOMEL/ 

/PIS/ 

F.P. 

F.P. 

LOCATION 

F.P. 
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REFERENCE: 

A.  P.  H.  Pathak,  W.  D.  Burnside,  and  R.  J.  Marhefka,  “A  Uniform 
GTO  Analysis  of  the  Diffraction  of  Electromagnetic  Waves  by  a 
Smooth  Convex  Surface,"  submitted  for  publication  to  IEEE 
Trans,  on  Antennas  and  Propagation.  (Also  Report  784583-4, 
ApHl  The  Ohio  State  University  ElectroSclence  Labora¬ 

tory,  Department  of  Electrical  Engineering;  prepared  under 
Contract  No.  N62269-76-C-0554  for  Naval  Air  Development  Center. 
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1.  NAME:  FKY  (GTO) 

2.  PURPOSE:  This  function  is  used  in  computing  the  transition  function 
for  curved  edge  diffraction. 

3.  METHOD:  The  transition  function  for  the  diffraction  coefficient  of 
an  edge  in  a  curved  surface  is  the  same  as  for  a  straight  wedge, 
except  that  the  curved  edge  function  takes  into  account  the  possi¬ 
bility  of  the  distance  parameter  being  negative.  The  transition 
function  is  given  by  (see  Reference  A): 


F(x) 


2 j 


/°°  e'^2  dt, 

\fi\ 


where  x  =  kLa, 

and  k  =  2ir/X 

L  =  distance  parameter,  which  is  a  function  of  source  type, 
incident  angle,  and  source-to-dif fraction  point  distance 
separation;  ensures  the  field  will  be  continuous  at  the 
shadow  and  reflection  boundaries 

a  =  a  function  dependent  on  the  square  of  the  cosine  of  the 
incident  and  diffraction  angles  and  the  wedge  angle 
number. 


So  that  *•-  >  Fresnel  integral  can  be  used,  the  transition  function 
can  tht  written  as  (see  reference  B): 


F(kLa)  =  j  2  n  j 


La  e jk 


L  I  a 


( 0 . 5—jO .  5 )  -  (c(2jl^*)-js(2j 


(1*1*)) 


for  L>0 


FKY ( FL , A) 


Computed  in  Computed  in 
subroutine  subroutine 

FRNELS  FRNELS 
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and 

F(kLa)  =  F*(k|L|a),  for  L<0 

where  the  means  the  complex  conjugate,  and  the  Fresnel  Integral  Is 
given  as: 

.  IT  „2 

a  -D  2  1 

/ae  dt  =  C(a)  -  jS(a) . 

o 


5. 


INTERNAL  VARIABLES: 

VARIABLE 

A 

C 

FKY 

FL 

FLA 

S 

TP  I 
XS 

I/O  VARIABLES: 

A.  INPUT 
A 

FL 
TP  I 

B.  OUTPUT 
FKY 


DEFINITION 

Parameter  dependent  on  the  Incident  and 
diffracted  angles 

Real  part  of  Fresnel  Integral 

Transition  function 

The  distance  parameter  In  wavelengths 

Absolute  value  of  FL 

Imaginary  part  of  Fresnel  Integral 

2* 

Argument  of  Fresnel  Integral 

LOCATION 

F.P. 

F.P. 

/PIS/ 

LOCATION 

FUNCTION 
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6.  CALLLING  ROUTINE: 

DZCOEF 

7.  CALLED  ROUTINES: 

8EXP 

FRNELS 

8.  REFERENCES: 

A.  R.  G.  Kouyoumjian  and  P.  H.  Pathak,  "A  Uniform  Geometrical 
Theory  of  Diffraction  for  an  Edge  in  a  Perfectly  Conducting 
Surface,"  Proc.  IEEE,  Vol.  62,  November  1974,  pp.  1448-1461. 

B.  The  BDM  Corporation,  "Interim  Report  for  Addition  of  GTD  to 
GEMACS,"  Vol.  II,  pp.  E - 14  to  E-16,  Contract  F30602-81-C-0084, 
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1.  NAME:  FLOOR V 


(6T0) 

2.  PURPOSE:  To  calculate  the  electric  field  scattered  by  a  structure 
or  incident  from  a  source  at  points  specified  by  the  user. 

3.  METHOD:  Two  data  sets  are  calculated  by  this  subroutine.  If  any 
GTD  interactions  have  been  requested,  FLDDRV  first  calculates  the 
Green's  function  matrix  of  field  values  due  to  unit  currents  on  the 
MOM  structure.  These  fields  take  into  account  the  presence  of  the 
GTD  portion  of  the  geometry.  If  only  MOM  or  GTD  objects  are  in  the 
geometry,  the  matrix  is  not  computed. 

The  second  data  set  that  may  be  calculated  by  FLDDRV  is  the  incident 
field  matrix  of  field  values  due  to  all  sources  which  contributed  to 
the  solution  current  specified  in  the  EFIELD  command.  This  data  set 
is  generated  only  when  an  incident  field  interaction  (El,  ES,  OR  EU) 
has  been  requested  on  a  previous  SETINT  command.  Otherwise,  the 
field  matrix  is  set  equal  to  zero. 

FLDDRV  will  accept  coordinates  for  three  different  systems: 
Cartesian,  cylindrical,  and  spherical.  The  initial  coordinates  will 
be  received  in  a  specific  order.  This  order  determines  the  order  in 
which  each  coordinate  is  incremented.  The  following  is  an  example 
command : 

NEAR  =  EFIELD  (CURDEN)  LINLIN 

DX  =1.  DY  =  10.  DZ  =  10. 

X2  =  10.  Y2  =  10.  Z2  =  10. 

Z1  =0.  Yl  =  0.  XI  =  0. 

Z  will  be  on  the  outer  loop.  Y  will  be  on  the  middle  loop,  and  X 

will  be  on  the  inner  loop.  This  is  determined  by  looking  at  the 
initial  coordinates  Zl,  Yl,  and  XI.  The  total  number  of  field 
points  in  this  case  is  11  x  2  x  2  =  44.  The  number  of  field  values 
that  must  be  calculated  is  132  (44  x  3  polarizations) . 

The  formats  of  the  Green's  function  and  incident  field  matrices  are 
shown  in  figure  1.  These  matrices  will  be  used  by  FLDDRV  (MOM)  to 
calculate  the  total  radiated  field: 

Ft  =  GtI  =  Fi 


I 

Solution  Vector 

Ft  = 

Total  Field 

Fi  = 

Incident  Field 

gt  = 

Green's  Function  Matrix,  Transposed. 
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Total  number  of  field  points  (L00P1*L00P2*L00P3*NPRFPT) 


/ 

"  “  -  ^  ■  —  » 

Number  of  1 

Green's  Function  Matrix 

Basis  1 

(Complex) 

Functions  / 

=  NWIRE  ) 

+2*NPATCH  j 

(a) 

(Header) 

(Real  Data) 


NINC 


| L00P3*NINC  Real  Words 


L00P1*L00P2  Pattern  Cuts 


(b) 


Figure  1.  The  Formats  of  (a)  Green's  Function  Matrix  and 
(b)  Incident  Field  Matrix. 


MOM-only  problems  assume  F1  =  0.  GTD-only  problems  assume  G  =  0  and 
1=0.  "  = 

The  data  set  formats  have  been  made  compatible  with  the  MOM  and 
OUTPUT  modules  so  that  the  GTD  module  will  Interface  directly  with 
the  OUTPUT  module  for  GTD-only  problems. 

FLDDRV  may  be  used  with  either  a  solution  or  source  data  set  as  the 
second  item  on  an  EFIELD  command.  A  solution  data  set  generates  the 
Green's  function  matrix.  The  solution  data  set  lineage  Is  searched 
for  a  geometry  data  set.  Unit  currents  are  placed  on  each  MOM 
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segment  and  the  radiated  field  calculated.  Each  element  of  G  Is 
computed  from:  ” 


all  other  1=0 


Ej  is  a  tangential  component  of  the  electric  field  at  one  of  the 
points  specified  on  the  EFIELD  command.  Ij  Is  a  unit  current 
impressed  on  the  ith  MOM  segment.  The  actual  calculation  of  g^j 
Is  performed  by  ZGTDRV.  The  current  on  all  other  MOM  segments  Is 
set  equal  to  zero. 


A  solution  data  set  may  also  trigger  generation  of  the  Incident 
field  matrix,  as  does  the  source  data  set.  The  lineage  of  the  solu¬ 
tion  data  set  Is  searched  for  a  source  data  set.  If  one  Is  found 
(and  incident  fields  have  been  requested),  an  Incident  field  matrix 
Is  generated  by  computing  the  field  at  points  specified  on  the 
EFIELO  command  due  to  the  source  which  generated  the  source  data 
set.  This  Is  also  done  by  ZGTDRV.  A  header  Is  placed  at  the 
beginning  of  each  field  record  (pattern  cut)  for  use  by  the  OUTPUT 
module  in  printing  and  plotting  the  field  patterns. 


4.  INTERNAL  VARIABLES: 
VARIABLE 
CC2 
CC3 
Cl 
C2 
C3 
D 

DC 

FRFLD 

I 

II 


DEFINITION 
C 2  In  degrees 
C3  in  degrees 

First  coordinate  of  field  point  (R  or  X) 

Second  coordinate  of  field  point  (0  or  Y) 

Third  coordinate  of  field  point  (♦  or  Z) 

A  dummy  variable  used  In  the  call  to  ZGTDRV 

Step  size  for  Inner  loop  (pattern  cut 
Increment) 

Logical  far-field  pattern  flag 
Loop  Index 

First  column  of  Green's  function  matrix  In 
TEMP 
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IBITB 

Attribute  word  of  the  solution  or  source 
data  set  (NAMEB) 

IBLANK 

Hollerith  field  with  all  blank  characters 

IBT 

Flag  for  a  solution  or  source  data  set 

IC0L2 

Last  column  of  Green's  function  matrix  in 
TEMP 

ICOROT 

Coordinate  keyword  table  used  to  find  all 
tie  coordinate  positions  and  increments 

ICOST 

Coordinate  order  and  system  table.  This 
table  will  tell  which  coordinates  are 
required  for  a  coordinate  system  (Carte¬ 
sian,  cylindrical,  or  spherical).  Should 
an  Improper  coordinate  type  be  specified, 
an  error  will  be  generated.  For  near-field 
patterns.  It  also  determines  the  order  of 
coordinates. 

ICTYPE 

Type  of  coordinate  system,  formed  by  adding 
the  location  of  system  constitutive  param¬ 
eters  in  ICOST: 

6  =  rectangular  (1+2+3) 

12  =  cylindrical  (4+5+3) 

15  =  spherical  (4+5+6) 

IGEOBT 

Flag  for  geometry  data  link 

IGFM 

Rightmost  three  characters  of  the  Green's 
function  data  set  =  "GFM" 

II 

Number  of  GTD  and  MOM  interactions  in  KJ 
Interaction  array 

INCORE 

Logical  flag  which  indicates  that  Inter¬ 
polation  coefficients  are  stored  in  main 
memory 

INOEX 

Saves  the  order  of  coordinates  as  specified 
by  the  user 

INOEX1 

Index  to  the  U  array  for  the  first 
coordinate 

INOEX2 

Index  to  the  U  array  for  the  second 
coordinate 
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IN0EX3  Index  to  the  U  array  for  the  third 

coordinate 

INDX  Index  to  the  symbol  table 

INOXA  Index  to  the  field  data  set  symbol  table 

entry 

INOXB  Index  to  the  solution  or  source  data  set 

symbol  table  entry 

I0BS1  First  observation  point  number  for  call  to 

ZGTDRV 

I0BS2  Last  observation  point  number  for  call  to 

ZGTDRV 

IROWA  Number  of  rows  in  a  column  of  the  field 

data  set 

ISRCBT  Flag  indicating  if  a  data  set  is  a  source 

data  set 


ITYPE 


IU 

J 

JSAV 

JSRCl 

JSRC2 

K 

KCOLS 


GTD  interaction  type.  For  scattered 
fields,  ITYPE  =  3  and  the  Green's  function 
matrix  is  generated.  For  incident  fields, 
ITYPE  =  4  and  the  incident  field  matrix  is 
generated 

The  coordinate  information  array  (equiva- 
lenced  to  U) 

Loop  index 

Index  to  ICORDT  for  coordinate  system  type 
First  source  point  for  call  to  ZGTDRV 
Last  source  point  for  call  to  ZGTDRV 
Loop  index 

Number  of  columns  of  the  Green's  function 
matrix  which  will  fit  into  TEMP  at  once 


KJ 


The  interaction  array  passed  to  ZGTDRV  for 
ITYPE  =  3  or  ITYPE  =  4 


KWA 


Keyword  argument 
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L 

Loop  Index 

LES 

Logical  flag  Indicting  shadowed  Incident 
fields  are  to  be  Included  In  the  Incident 
field  calculation  (ITYPE  =  4) 

LEU 

Logical  flag  Indicating  unshadowed  Incident 
fields  are  to  be  included  in  the  incident 
field  calculation  (ITYPE  =  4) 

LINKA 

Index  of  field  matrix  to  link  the  field 
matrix  to  the  solution  or  source  data  set 

LINKB 

Index  to  the  data  set  that  is  linked  to  the 
solution  or  source  data  set 

LINKG 

Index  to  the  data  set  that  is  linked  to  the 
Green's  function  matrix 

LMID 

Index  of  middle  pattern  loop 

LNKBIT 

The  attribute  word  for  the  linked  data  set 

LOOP 

The  loop  array  containing  the  number  of 
times  to  perform  each  loop 

LOOPi 

Outer  loop  limit 

L00P2 

Middle  loop  limit 

LOOP3 

Inner  loop  limit 

LORDER 

Array  containing  the  order  for  all  coordi¬ 
nate  systems 

LOUT 

Index  of  outer  pattern  loop 

LX 

Total  number  of  pattern  cuts  stored  in  the 
field  data  set 

L123 

Total  number  of  field  points  (L00P1*L00P2*L00P3) 

MASK 

Used  to  determine  the  required  coordinates 
for  a  system 

N 

Loop  Index 

NA 

Hollerith  format  of  field  data  set 
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NAH 

Hollerith  format  of  NAMEA 

NAMEA 

Name  of  the  field  data  set 

NAMES 

Name  of  the  solution  or  source  data  set 

NAMGEO 

Name  of  the  linking  geometry  data  set 

NAMGFM 

Name  of  the  Green's  function  matrix 

NBITA 

Far-  or  near-field  attribute  for  the  field 
matrix 

NC 

Number  of  columns  in  TEMP  for  call  to 
ZGTDRV 

NCOLS 

Total  number  of  columns  in  the  Green's 
function  data  set 

NOX 

Pointer  to  coordinate  number  of  INDEX  array 

NDXINR 

Index  to  the  coordinate  in  the  U  array  and 
in  the  inner  loop 

NDXMID 

Index  to  the  coordinate  in  the  U  array  and 
in  the  middle  loop 

NDXOUT 

Index  to  the  coordinate  in  the  U  array  and 
in  the  outer  loop 

NEED 

Minimum  main  memory  storage  needed  to 
generate  a  column  of  the  Green's  function 
matrix  or  field  matrix 

NEL 

TEMP  element  being  initialized  to  zero 

NELRW 

Number  of  elements  per  row  of  the  data  set 

NELTTL 

Total  number  of  elements  of  data  set  in 
TEMP 

NINC 

The  increment  size  for  filling  a  column  in 
the  field  matrix  (Number  of  real  words  per 
field  point) 

NOBS 

Number  o<  observation  points  for  the  entire 
Green's  function  matrix  (=L00P1*L00P2*L00P3) 

NPRFPT 

Number  of  vector  components  of  field  at 
observation  point 
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NROWS 

NROWX 

NS 

NSHIFT 

NXTARG 

RDTODG 

U 

I/O  VARIABLES: 

A.  INPUT 
CHKWRT 
DGTORO 
FLTARG 
INTARG 
I  PASS 
IP217 
ISON 
KBCPIX 
KBFFLD 
KBGEOM 
KBNFLO 


Number  of  rows  of  Green's  function  matrix 

Internal  variable  equal  to  NROWS  for  call 
to  ZGTDRV 

Hollerith  format  of  geometry  data  set  name 
(NAMGEO) 

Mask  used  to  blank  out  the  rightmost  three 
characters  of  the  field  data  set  In  order 
to  generate  the  Green's  function  matrix 
na.iie 


Next  argument  to  be  evaluated  in  the 
argument  list 

Conversion  factor  from  radians  to  degrees 

Array  containing  initial  and  final  posi¬ 
tions  plus  the  increment  for  each 
coordinate 


LOCATION 

/SYSFIL/ 

/GEODAT/ 

/ARGCOM/ 

/ARGCOM/ 

/ARGCOM/ 

/GEODAT/ 

/ADEBUG/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 
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KBREAL 

KBSOLN 

KBSRCE 

KJFLD 

KJGTO 

KJINT 

KJMOM 

KOLBIT 

KOLCOL 

KOLLNK 

KOLNAM 

KWNAME 

LSTSYS 

LUPRNT 

NBYTSZ 

NCOOES 

NDATBL 

NOPCOD 

NPATCH 

NPOATA 

NTEMPS 

NTFLP1 

HUMARG 

NUHGTD 

NWIRE 
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/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/INTMAT/ 

/INTMAT/ 

/INTMAT/ 

/INTMAT/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/SYSFIL/ 

/ADEBUG/ 

/ADEBUG/ 

/PARTAB/ 

/PARTAB/ 

/ADEBUG/ 

/SEGMNT/ 

/PARTAB/ 

/TEMPOl/ 

/AOEBUG/ 

/ARGCOM/ 

/GTODAT/ 

/SEGMNT/ 
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RSTART 

/SYSFIL/ 

ZERO 

/ADEBUG/ 

B.  OUTPUT 

LOCATION 

CHKWRT 

/SYSFIL/ 

IERRF 

/ADEBUG/ 

INTARG 

/ARGCOM/ 

ITEMP 

/TEMPOl/ 

IWORDS 

/ADEBUG/ 

LSTSYS 

/SYSFIL/ 

LI 

/FLDVAL/ 

L2 

/FLDVAL/ 

L3 

/FLDVAL/ 

NAMSRC 

/FLDVAL/ 

NDATBL 

/PARTAB/ 

NOGOFG 

/SCNPAR/ 

NPDATA 

/PARTAB/ 

NU 

/FLDVAL/ 

TEMP 

/TEMPOl/ 

U1 

/FLDVAL/ 

VI 

/FLDVAL/ 

W1 

/FLDVAL/ 

CALLING  ROUTINE: 

TSKXQT 
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AD  A 1 37  463 

UNCLASSIFIED 


UENFRAL  bl.EC  I  RUMAGNE  I  iC  MODEL  FOR  THE'  ANALYSIS  OF 
COMPLEX  SYSTEMS  ( GEMACS . . I U )  BDM  CORP  ALBUQUERQUE  NM 
D  l  KADLEC  Ef  AL .  SEP  83  BDM/A-83020- TR 
RADC-1R-83-217  VOL-3  F 30602 - 8 1 -C -  0084 


Si 

NL 


F/G  20/M 


V 

MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUREAU  OF  STANDARDS-1963-A 


FLOOR V  (GTD) 


CALLED  ROUTINES: 

ASSIGN 

IBITCK 

SYHDEF 

CONVRT 

PRTKJ 

SYMUPD 

ERROR 

PUTSYN 

SYSCHK 

GETARG 

STATIN 

WLKBCK 

GETGEO 

STATOT 

ZGTDRV 
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NAME:  FLDORV 


(MOM) 


2. 


3. 


4. 


PURPOSE:  To  calculate  the  electric  field  scattered  by  a  structure 
or  Incident  from  a  source  at  points  prescribed  by  the  user. 

METHOO:  FLDORV  will  accept  coordinates  for  three  different  sy stews: 
Cartesian,  cylindrical,  and  spherical.  The  Initial  coordinates  will 
be  received  In  a  specific  order.  This  order  determines  the  order  In 
which  each  coordinate  Is  Incremented.  The  following  Is  an  example 
command: 

NEAR  *  EFIELO  (CUROEN)  LINLIN 


OX 

*  1. 

OY  *  10. 

OZ  » 

10. 

X2 

*  10. 

Y2  *  10. 

Z2  » 

10. 

Zl 

=  0. 

Y1  =  0. 

XI  = 

0. 

Z  will  be  on  the  outermost  loop.  Y  will  be  on  the  middle  loop,  and 
X  will  be  on  the  Innermost  loop.  This  Is  determined  by  looking  at 
the  Initial  coordinates  Zl,  Yl,  and  XI. 


For  each  position  the  electric  field  Is  calculated  for  near  or  far 
field.  The  electric  field  vector  components  (real  and  Imaginary) 
are  put  Into  a  matrix  by  columns  each  time  the  Innermost  loop  Is 
completed.  This  Is  equivalent  to  one  column  of  data  per  field 
pattern  cut.  A  header  Is  put  on  each  column  to  Indicate  the 
starting  point  and  which  coordinate  Is  being  Incremented.  A  matrix 
of  the  electric  field  components  for  all  positions  specified  will 
be  generated. 

For  MOM-only  Interactions,  the  field  values  are  generated  by  NERFLD 
and  FARFLD.  If  Incident  fields  or  GTD  Interactions  have  been 
requested,  FLDORV  calls  EGFMAT  to  compute  the  total  field  from  the 
Green's  function  matrix  and/or  Incident  field  matrix  previously 
computed  In  the  GTD  module. 

INTERNAL  VARIABLES: 


VARIABLES 

CC2 

CC3 

CEX 

CEY 

CEZ 


DEFINITION 
C 2  In  degrees 
C3  In  degrees 
Imaginary  part  of  EX 
Imaginary  part  of  EY 
Imaginary  part  of  EZ 
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Cl  Array  containing  Imaginary  part  of  the 

electric  field  for  a  coordinate 

COEF  Coefficient  used  In  converting  Cartesian  to 

spherical  electric  components 

C0SC2  Cosine  of  C2 

C0SC3  Cosine  of  C3 

CR  Array  containing  real  part  of  the  electric 

field  for  a  coordinate 


Cl 

C2 

C3 

DC 

EPH 

ESQR 

ETH 

EX 

EY 

EZ 

FRFLD 

I 

I BLANK 


First  coordinate  for  one  of  the  systems  (X 
or  R) 

Second  coordinate  (Y  or  theta) 

Third  coordinate  (Z  or  phi) 

Step  size  for  Innermost  loop 

Complex  electric  field  of  far-field  phi 
vector  component 

Magnitude  of  the  electric  field  squared 

Complex  electric  field  of  far-field  theta 
vector  component 

Complex  electric  field  of  first  near-field 
vector  component 

Complex  electric  field  of  second  near-field 
vector  component 

Complex  electric  field  of  third  near-field 
vector  component 

Logical  far-field  flag 

Loop  Index 

Hollerith  field  with  all  blank  characters 


IC0L1  ICOLMN  plus  1 

ICOLA  Number  of  columns  added  to  the  field  matrix 
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ICOLHN 

Column  counter  for  the  output  field  matrix 

ICOROT 

Coordinate  keyword  table  used  to  find  all 
the  coordinate  positions  and  Increments 

ICOST 

Coordinate  order  and  system  table.  This 
table  will  tell  which  coordinates  are 
required  for  a  system  (Cartesian,  cylin¬ 
drical,  and  spherical).  Should  an  Improper 
coordinate  type  be  specified,  an  error  Is 
generated.  It  also  will  get  the  order  for 
near-field  patterns. 

ICTYPE 

Type  of  coordinate  system,  formed  by  adding 
the  location  of  system  constitutive  param¬ 
eters  In  ICOST 

6  *  rectangular  (1  +  2  +  3) 

12  *  cylindrical  (4  +  5  +  3) 

15  «  spherical  (4  +  5  +  6) 

IFILE 

Oata  file  on  which  field  data  set  resides 

IGEOBT 

Flag  for  geometry  data  link 

INCORE 

Logical  flag  which  Indicates  that  Inter¬ 
polation  coefficients  are  stored  In  main 
memory 

INDEX 

Saves  the  order  of  the  coordinates 

INDEX1 

Index  to  the  U  array  for  the  first 
coordinate 

INDEX2 

Index  to  the  U  array  for  the  second 
coordinate 

INDEX3 

Index  to  the  U  array  for  the  third 
coordinate 

INDX 

Index  to  the  symbol  table 

INDXA 

Index  to  the  field  data  set  In  symbol  table 

INOXB 

Index  to  the  solution  or  source  data  set  In 
symbol  table 

I  PLOT 

Plot  type  to  be  used  by  the  plotting 
routine 
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I  ROMA 
IROW2 
IU 

J 

JSAV 

K 

KWA 

LINKA 

LINKB 

LNKBIT 

LOCAII 

LOCAIR 

LOCBII 

LOCBIR 

LOCI 

LOCCII 

LOCCIR 

LOOP 

LOOP1 

L00P2 

LOOP3 

LOPINR 

LOPMIO 


Number  of  rows  In  a  column 

Number  of  rows  In  the  solution  matrix 

The  coordinate  Information  array  (equlva- 
lenced  to  U) 

Loop  Index 

Index  to  I COROT  for  coordinate  system  type 
Leap  Index 
Keyword  argument 

Index  of  the  field  matrix  to  link  the  field 
matrix  to  the  solution  data 

Index  to  the  data  that  Is  linked  to  the 
solution  data 

The  attribute  word  for  the  linked  data  set 

Location  of  Imaginary  part  of  A 

Location  of  real  part  of  A 

Location  of  Imaginary  part  of  B 

Location  of  real  part  of  B 

The  last  location  of  the  ABC  arrays 

Location  of  Imaginary  part  of  C 

Location  of  real  part  of  C 

The  loop  array  containing  the  number  of 
times  to  perform  each  loop 

Outermost  loop  limit 

Middle  loop  limit 

Innermost  loop  limit 

Index  of  Innermost  pattern  loop 

Index  of  middle  pattern  loop 
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LOPOUT 

LORDER 

MASK 

N 

NAM 

NAME 

NAMEA 

NAMEB 

NAMEG 

NBITA 

NDX 

NDXINR 

NDXMIO 

NDXOUT 

NINC 

NPI 

NPIC 

NPIR 

NPRFPT 

NXTARG 
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Index  of  outermost  pattern  loop 

Array  containing  the  order  for  all  coor¬ 
dinate  systems 

Used  to  determine  the  required  coordinates 
for  a  system 

Loop  Index 

Hollerith  format  of  NAMEA 

Name  of  the  solution  data  set 

Name  of  the  field  data  set 

Name  of  the  solution  or  source  data  set 

Name  of  the  linking  geometry  data 

Far-  or  near-field  attribute  for  the  plot 
matrix 

Pointer  to  coordinate  number  In  INDEX  array 

Index  to  the  coordinate  In  the  U  array  and 
In  the  Innermost  loop 

Index  to  the  coordinate  In  the  U  array  and 
In  the  middle  loop 

Index  to  the  coordinate  In  the  U  array  and 
In  the  outermost  loop 

The  Increment  size  for  filling  a  column  In 
the  field  matrix  (Number  of  real  words  per 
field  point) 

Index  for  Imaginary  part 

Index  for  Imaginary  part  of  the  field 

Index  for  real  part  of  the  field 

NINC/2  (Number  of  vector  components  at 
field  point) 

Next  argument  to  be  evaluated 
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FLOOR V 


(MOM) 


PHSMAG 

PWRMAX 

ROTOOG 

REX 

REY 

REZ 

RINV 

SINCZ 

SINC3 

U 

U1X,  U1Y,  U1Z 


Phase  and  magnitude  component  parts  of  the 
complex  electric  field  for  each  position 

Maximum  power  of  the  structure 

Conversion  factor  from  radians  to  degrees 

Real  part  of  EX 

Real  part  of  EY 

Real  part  of  EZ 

Inverse  of  projections  of  unit  radius  onto 
x-y  plane 

Sine  of  C2 

Sine  of  C3 

Array  containing  initial  and  final  posi¬ 
tions  plus  the  increment  for  each 
coordinate 

X,Y,  and  Z  components  of  first  near-field 
polarization  unit  vector 


U2X,  U2Y,  U2Z,  X,Y,  and  Z  components  of  second  near-  field 

polarization  unit  vector 


U3X,  U3Y,  U3Z, 
X 

XU 

Y 

YW 

Z 

ZW 


X,Y,  and  Z  components  of  third  near-field 
polarization  unit  vector 

The  x  coordinate 

The  x  coordinate  scaled  to  wavelength 
The  y  coordinate 

The  y  coordinate  scaled  to  wavelength 
The  z  coordinate 

The  z  coordinate  scaled  to  wavelength 


394 


FLDDRV 

5.  I/O  VARIABLES: 


INPUT 

LOCATION 

DGTORD 

/GEODAT/ 

FLTAR6 

/ARGCOH/ 

INTARG 

/ARGCOM/ 

IPASS 

/ARGCOH/ 

ISON 

/AOEBUG/ 

KBFFLD 

/PARTAB/ 

KBGEOM 

/PARTAB/ 

KBNFLD 

/PARTAB/ 

KBREAL 

/PARTAB/ 

KJFLD 

/INTMAT/ 

KJGTD 

/INTMAT/ 

KOLBIT 

/PARTAB/ 

KOLLNK 

/PARTAB/ 

KOLLOC 

/PARTAB/ 

KOLNAM 

/PARTAB/ 

KOLROW 

/PARTAB/ 

KWNAME 

/PARTAB/ 

LUPRNT 

/AOEBUG/ 

NCODES 

/PARTAB/ 

NDATBL 

/PARTAB/ 

NOPCOO 

/AOEBUG/ 

NPDATA 

/PARTAB/ 

NTEMPS 

/TEMPO 1/ 

NTFLPT 

/AOEBUG/ 

(HOH) 
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FLOOR V 


(MOM) 


( 


I 


NUMARG 

/ARGCOM/ 

ZERO 

/ADEBUG/ 

OUTPUT 

LOCATION 

IERRF 

/ADEBUG/ 

ITEMP 

/TEMPOl/ 

I WORDS 

//DEBUG/ 

LOCAII 

/FLDCOM/ 

LOCAIR 

/FLDCOM/ 

LOCBII 

/FLDCOM/ 

LOCBIR 

/FLDCOM/ 

LOCCII 

/FLDCOM/ 

LOCCIR 

/FLDCOM/ 

NDATBL 

/PARTAB/ 

NOGOFG 

/SCNPAR/ 

NPOATA 

/PARTAB/ 

TEMP 

/TEMPOl/ 

CALLING  ROUTINE: 
TSKXQT 

CALLED  ROUTINES: 

ASSIGN 

CABC 

CLSFIL 

CONVRT 

EGFMAT 

ERROR 

FARFLD 
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(HOM) 


GETARG 

GETGEO 

GETSYH 

IBITCK 

NERFLO 

PUTSYM 

STATIN 

STATOT 

SYMOEF 

SYMUPD 

WLKBCK 
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FLDDRV  (MOM) 
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GET  OAT A 
SET  NAMES 
AND  THE 
PLOT  TYPE 


INITIALIZE 
VARIABLES 
FOR  FINDING 
THE  COORDINATES 


COORDINATES 
FOUND  . 


USE  MASK 
TOFINO 
A  LEGAL 
COORDINATE 


GET  SOLUTION 
SYMBOL  ATTRIBUTES 
AND  INITIALIZE 
VARIABLES 


-/PREVIOOSlYV. 
^oefltneo  GREEN'S'' 
\  FUNCTION  / 
^wMATRlX 


SETUP 
SYMBOL  FOR 
FIELD  DATA 


SETUP 
LOCATIONS 
FOR  THE  A. 
B.  AND  C 
MATRICES 


COMPUTE  TOTAL 
FIELD  FROM 
GREEN'S  FUNCTION 
MATRIX  AND/OR 
INCIOENT  FIELD 


ON  FIRST 
PASS  THROUGH 
LOOP  LOAD 
HEADER  IN 
COLUMN  OF  MATRIX 


TRANSFORM 
COORDINATE 
SYSTEM  TO 
RECTANGULAR 


CALCULATE 
E  FIELD  AT 

this  position 

NERFLO 


TRANSFER 
FIELDS  TO 
THE  COLUMN 


